dim users,strInfo
users = Request.Form("user")
If Len(users) = 陈我0 Then
Response.Write("会员账号不能为空")
Exit Sub
End If
***.open "select * from Users where user=" & users & "",con,1,1
If rs.bof And rs.eof Then
Response.Write("该会员账号不存在!!!")
Exit Sub
Else
If IsNull(rs("dl")) or rs("dl") = "" Then
Response.Write("该账号未冲值!剩余时间0天!")
Exit Sub
End If
Do While Not Rs.EOF
strInfo = "会员账号:" & rs("User") & " 姓名:" & rs("Names") & " 冲值时间:" & rs("Times")
Response.Write strI跑司几县未续承则nfo &"<br />"这里是返回的用户资料
Rs.MoveNext
loop
End If
rs.close
con.close
Set rs = Nothing
Set con = Nothing
users = Request.Form("user")
If Len(users) = 陈我0 Then
Response.Write("会员账号不能为空")
Exit Sub
End If
***.open "select * from Users where user=" & users & "",con,1,1
If rs.bof And rs.eof Then
Response.Write("该会员账号不存在!!!")
Exit Sub
Else
If IsNull(rs("dl")) or rs("dl") = "" Then
Response.Write("该账号未冲值!剩余时间0天!")
Exit Sub
End If
Do While Not Rs.EOF
strInfo = "会员账号:" & rs("User") & " 姓名:" & rs("Names") & " 冲值时间:" & rs("Times")
Response.Write strI跑司几县未续承则nfo &"<br />"这里是返回的用户资料
Rs.MoveNext
loop
End If
rs.close
con.close
Set rs = Nothing
Set con = Nothing