UC知道ASP的问题大家帮下忙啊
来源：百度知道 编辑：UC知道 时间：2024/05/25 20:41:48
<!--#include file="articleconn.asp"-->
<!--#include file="checkpost.asp"-->
<%function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'“character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
%>
<%
Dim logintype
logintype=request("logintype")
if logintype="1" then
dim rs
dim sql
sql="select time from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
maxtime=rs("time")
conn.Execute("Delete From online where DATEDIFF('s'
<!--#include file="checkpost.asp"-->
<%function makePassword(byVal maxLen)
Dim strNewPass
Dim whatsNext, upper, lower, intCounter
Randomize
For intCounter = 1 To maxLen
whatsNext = Int((1 - 0 + 1) * Rnd + 0)
If whatsNext = 0 Then
'“character
upper = 90
lower = 65
Else
upper = 57
lower = 48
End If
strNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))
Next
makePassword = strNewPass
end function
%>
<%
Dim logintype
logintype=request("logintype")
if logintype="1" then
dim rs
dim sql
sql="select time from home"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
maxtime=rs("time")
conn.Execute("Delete From online where DATEDIFF('s'
是这句有问题
sql="select time from home"
他查询数据库中的一个名字为home的表，由于在数据库中没有找到这个表，所以就提示出错，你检查下你的数据库，是不是存在这个表啊？或者你写错了。
sql="select time from home" 我不知道你的数据库中有没有这个表，但是你的一个字段名好像有点问题啊，time 和程序内置函数名字相同，有冲突的。
然后还有一个就是你每次打开连接都没有关闭连接，而且连接字串 sql 和连接名称 rs 一直都是一样的，这样的话当然不成功啦。
home表确实存在么？
另外你这里面的recordset都用的rs，会起冲突，而且没有关闭.....
是不是你没有连接上数据库呀.
你可以做个小测试.新建个项目,只连接数据库,看能不能连上.
home表不存在