小妹是美术设计专业,现在接触asp程序,碰到这个问题实在是没办法解决了,请各位学长帮我看看,谢谢了!在线等!!
页面程序大致如下:(蓝色字和红色字) 为了帖子显示正常,我把“<”和“>”用“《”和“》”替换了! <% dim username
username="" If Request.QueryString("username")<>"" Then username=Request.QueryString("username") End If
%> <% dim sessionva=www.hhh.com
if session("login_site")=sessionva and session("login_number")="1" then
set uersme=Server.CreateObject("ADODB.RecordSet") uersme.open "SELECT * from user_friend where user_key="&username&"",conn,3,3
'dim uersme
'Set uersme = Server.CreateObject("ADODB.Recordset") 'uersme.ActiveConnection = conn 'uersme.Source = "SELECT * form user_friend where user_key like '"&username&"'" 'uersme.CursorType = 0 'uersme.CursorLocation = 2 'uersme.LockType = 1 'uersme.Open()
end if 'set uersme=Server.CreateObject("ADODB.RecordSet") 'uersme.open "SELECT * from user_date where user_name like '"&username&"'",conn,3,3 %> 《html》 《head》 《meta http-equiv="Content-Type" content="text/html; charset=gb2312"》 《title》页面测试《/title》 《link rel="stylesheet" href="../css/menu.css" type="text/css"》 《/head》
《body》 《table width="780" border="0" cellpadding="0" cellspacing="0"》 《tr》 <%if username<>"" then%> <%if session("login_number")="" then%> 《td width="180" valign="top"》菜单1《/td》 <%else%> <%if session("login_number")="1" then%> 《td width="180" valign="top"》菜单2《/td》 <%else%> 《td width="180" valign="top"》菜单3《/td》 <%end if%> <%end if%> <%else%> 《td width="180" valign="top"》菜单1《/td》 <%end if%> 《td width="600" valign="top"》《table width="600" border="0" cellspacing="0" cellpadding="0"》 《tr》 《td valign="top" bgcolor="#FFEFF5"》 <%if username="" then%> 《table width="584" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFC0D6"》 《tr》 《td valign="top" bgcolor="#FFFFFF"》 《table width="500" border="0" align="center" cellpadding="0" cellspacing="0"》 《tr》 《td》请登录:《/td》 《/tr》 《form name="form1" method="post" onSubmit="return formcheck()" action="#"》 《tr》 《td》用户名:《input name="tx_name" type="text" size="13" maxlength="10"》 密码:《input name="tx_password" type="password" size="13" maxlength="10"》 《input type="submit" name="Submit" value="登录"》《/td》 《/tr》 《/form》 《/table》《/td》 《/tr》 《/table》 <%else%> <%if session("login_number")="" then%> 你进行了非法操作!请登陆后再使用! <%else%> 《table width="584" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#FFC0D6"》 <%if session("login_number")《》"1" then%> 《tr》 《td bgcolor="#FFFFFF"》 《font color="cc0000"》《b》<%=username%>《/b》《/font》,欢迎您进入,你是第一次登陆!《/td》 《/tr》 《tr》 《td bgcolor="#FFFFFF"》 《/td》 《/tr》 《%else%》 《tr》 《td bgcolor="#FFFFFF"》 <%=username%>,欢迎您进入!《br》 您的留言本中有0条新留言!《/td》 《/tr》 <%end if%> 《/table》 <%end if%> <%end if%> 《/td》 《/tr》 《/table》 《/td》 《/tr》 《/table》 《/body》 《/html》
运行之后出现下面的错误:(绿色字)
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp,行242
ADODB.Recordset 错误 '800a0bb9'
变量或者类型不正确,或者不在可以接受的范围之内,要不就是与其他数据冲突。
/001/mm/myhome/userindex.asp,行19
如果把页面程序中的“红色字”部分删除,页面运行正常!
学长们能看为是什么原因吗?
[此贴子已经被作者于2005-6-12 20:04:19编辑过]