28,408
社区成员
发帖
与我相关
我的任务
分享求助 ASP+MSSQL 登录问题~急盼帮助
Const.asp页代码：
<%
on error resume next
strSQLServer="RZSERVER"
strSQLUser="sa"
strSQLPassword="sa"
strSQLDataBase="RzQueue"
connstr = "driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set conn = server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('创建 ADO 对象失败');</script>"
response.end
else
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('SQL Server 数据库连接失败');</script>"
response.end
end if
end if
%>
<%
'sql="select * from config"
'Set rs= Server.CreateObject("ADODB.Recordset")
'rs.open sql,conn,1,1
%>
登录页代码：
<!--#include file="const.asp" -->
<!--#include file="md5.asp"-->
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.Username.value=="")
{
alert("请输入用户名！");
document.UserLogin.Username.focus();
return false;
}
if(document.UserLogin.pws.value == "")
{
alert("请输入密码！");
document.UserLogin.pws.focus();
return false;
}
}
</script>
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim name
dim pws
name=replace(trim(request("name")),"'","")
pws=replace(trim(Request("pws")),"'","")
pws=md5(pws)
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where name='" & name & "' and pws='" & pws &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("name")
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" >
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_left" height="32"> 会
员 中 心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD> <%If Session("Username")="" Then%>
<table width="100%" border="0" cellpadding="0" cellspacing="3">
<!--DWLayoutTable-->
<tr>
<td height="13" colspan="2" align="right"> <p align="center" style="word-spacing: 0; margin-top:
0; margin-bottom: 0"> </p></td>
</tr>
<tr>
<td height="126" colspan="2" align="right"> <div align="center">
<table class="main" cellSpacing="0" cellPadding="2" width="100%" border="0" height="1">
<tbody>
<tr>
<td width="100%" height="1"><table width='40%' border='0' align="center"
cellpadding='0' cellspacing='0' class="tdbg_left">
<form action='UserServer.asp?Action=Login' method='post' name='UserLogin'
onSubmit='return CheckForm();'>
<tr class='title'>
<td height='25' colspan="2" align='right'><div align="center">用户登录
</div></td>
</tr>
<tr>
<td height='25' align='right'>用户名：</td>
<td> <input name='Username' type='text' id='Username' size='20'
maxlength='20'></td>
</tr>
<tr>
<td height='25' align='right'>密 码：</td>
<td> <input name='pws' type='password' id='pws' size='21' maxlength='20'></td>
</tr>
<tr align='center'>
<td height='25' colspan='2'> <input name='Login' type='submit' id='Login'
value=' 登录 '>
<input name='Reset' type='reset' id='Reset' value=' 清除 '></td>
</tr>
<tr>
<td height='20' colspan='2' align='center'><a href='UserReg.asp'
target='_blank'>用户注册</a> <a href='GetPassword.asp' target='_blank'>忘记密码</a></td>
</tr>
</form>
</table></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr>
<td width="164" height="19" align="right"> </td>
<td width="583" align="right"> </td>
</tr>
<tr>
<td height="19" align="right" valign="top"> <p align="center" style="word-spacing: 0; margin-top:
0; margin-bottom: 0"> </p></td>
<td align="right" valign="top"><div align="left">您无法进入会员中心，请先登录！如果您不是我们的会
员，请立即<font color="#006699"><a href="UserReg.asp"><font color="#FF0000">注册</font></a>。</font></div></td>
</tr>
<tr>
<td height="13" align="right"> </td>
<td> </td>
</tr>
</table>
<%else%>
<TABLE width="85%" align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR vAlign=top >
<TD width="100%"> <p style="margin-bottom: 0">
<br>
亲爱的<%=Session("Username")%>：</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册信息、获取
预约号码。</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<a href="UserEditPwd.asp">修改密码
</a>
<a href="UserEdit.asp">修改会员资料
</a>
<a href="UserLogout.asp">退出登录</a></p></TD>
</TR>
</TBODY>
</TABLE>
<%end if%> </TD>
</TR>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</BODY></HTML>
我现在登录不上去。。显示出不<%else%> 以后的内容。。现在无论密码对错都只显示登录那块。
数据库里用户名是user 密码是pws 注册时密码经过MD5加密。
LoginIP 也写不进去。用户的IP地址。
LastLoginTime 登录时间
logins 是登录次数。
求助。。谢谢。
<%
on error resume next
strSQLServer="RZSERVER"
strSQLUser="sa"
strSQLPassword="sa"
strSQLDataBase="RzQueue"
connstr = "driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set conn = server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('创建 ADO 对象失败');</script>"
response.end
else
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('SQL Server 数据库连接失败');</script>"
response.end
end if
end if
%>
<%
'sql="select * from config"
'Set rs= Server.CreateObject("ADODB.Recordset")
'rs.open sql,conn,1,1
%>
登录页代码：
<!--#include file="const.asp" -->
<!--#include file="md5.asp"-->
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.Username.value=="")
{
alert("请输入用户名！");
document.UserLogin.Username.focus();
return false;
}
if(document.UserLogin.pws.value == "")
{
alert("请输入密码！");
document.UserLogin.pws.focus();
return false;
}
}
</script>
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim name
dim pws
name=replace(trim(request("name")),"'","")
pws=replace(trim(Request("pws")),"'","")
pws=md5(pws)
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where name='" & name & "' and pws='" & pws &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("name")
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" >
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_left" height="32"> 会
员 中 心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD> <%If Session("Username")="" Then%>
<table width="100%" border="0" cellpadding="0" cellspacing="3">
<!--DWLayoutTable-->
<tr>
<td height="13" colspan="2" align="right"> <p align="center" style="word-spacing: 0; margin-top:
0; margin-bottom: 0"> </p></td>
</tr>
<tr>
<td height="126" colspan="2" align="right"> <div align="center">
<table class="main" cellSpacing="0" cellPadding="2" width="100%" border="0" height="1">
<tbody>
<tr>
<td width="100%" height="1"><table width='40%' border='0' align="center"
cellpadding='0' cellspacing='0' class="tdbg_left">
<form action='UserServer.asp?Action=Login' method='post' name='UserLogin'
onSubmit='return CheckForm();'>
<tr class='title'>
<td height='25' colspan="2" align='right'><div align="center">用户登录
</div></td>
</tr>
<tr>
<td height='25' align='right'>用户名：</td>
<td> <input name='Username' type='text' id='Username' size='20'
maxlength='20'></td>
</tr>
<tr>
<td height='25' align='right'>密 码：</td>
<td> <input name='pws' type='password' id='pws' size='21' maxlength='20'></td>
</tr>
<tr align='center'>
<td height='25' colspan='2'> <input name='Login' type='submit' id='Login'
value=' 登录 '>
<input name='Reset' type='reset' id='Reset' value=' 清除 '></td>
</tr>
<tr>
<td height='20' colspan='2' align='center'><a href='UserReg.asp'
target='_blank'>用户注册</a> <a href='GetPassword.asp' target='_blank'>忘记密码</a></td>
</tr>
</form>
</table></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr>
<td width="164" height="19" align="right"> </td>
<td width="583" align="right"> </td>
</tr>
<tr>
<td height="19" align="right" valign="top"> <p align="center" style="word-spacing: 0; margin-top:
0; margin-bottom: 0"> </p></td>
<td align="right" valign="top"><div align="left">您无法进入会员中心，请先登录！如果您不是我们的会
员，请立即<font color="#006699"><a href="UserReg.asp"><font color="#FF0000">注册</font></a>。</font></div></td>
</tr>
<tr>
<td height="13" align="right"> </td>
<td> </td>
</tr>
</table>
<%else%>
<TABLE width="85%" align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR vAlign=top >
<TD width="100%"> <p style="margin-bottom: 0">
<br>
亲爱的<%=Session("Username")%>：</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册信息、获取
预约号码。</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<a href="UserEditPwd.asp">修改密码
</a>
<a href="UserEdit.asp">修改会员资料
</a>
<a href="UserLogout.asp">退出登录</a></p></TD>
</TR>
</TBODY>
</TABLE>
<%end if%> </TD>
</TR>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</BODY></HTML>
我现在登录不上去。。显示出不<%else%> 以后的内容。。现在无论密码对错都只显示登录那块。
数据库里用户名是user 密码是pws 注册时密码经过MD5加密。
LoginIP 也写不进去。用户的IP地址。
LastLoginTime 登录时间
logins 是登录次数。
求助。。谢谢。
...全文
请发表友善的回复…
发表回复
一把编程的菜刀 2010-09-29
- 打赏
- 举报
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim usnames
dim pws
usnames=replace(trim(request("Username")),"'","") ‘更改
pws=replace(trim(Request("pws")),"'","")
pws=md5(pws)
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where [usnames]='" & Username & "'"
rs.open sql,conn,1,3
if not rs.bof then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("usnames")
Response.Redirect "UserServer.asp"
else
response.write "密码错误"
response.end()
end if
else
response.write "没有找到相应的用户信息！"
response.end()
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
sy_binbin 2010-09-29
- 打赏
- 举报
你这样改一下，看看页面上显示的是什么
sy_binbin 2010-09-29
- 打赏
- 举报
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where [usnames]='" & Username & "' and pws='" & pws &"'" ’更改
response.write sql
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("usnames")
Response.Redirect "UserServer.asp"
else
response.write "密码错误"
response.end()
end if
else
response.write "没有找到相应的用户信息！"
response.end()
end if
sql="select * from rz_userinfo where [usnames]='" & Username & "' and pws='" & pws &"'" ’更改
response.write sql
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("usnames")
Response.Redirect "UserServer.asp"
else
response.write "密码错误"
response.end()
end if
else
response.write "没有找到相应的用户信息！"
response.end()
end if
lizeyong 2010-09-29
- 打赏
- 举报
[Quote=引用 30 楼 sy_binbin 的回复:]
建议。加强下基础知识，做东西要细心
[/Quote]
谢谢。我的确是应该去学习一下基础知识了。其实我现在也在摸索学习中。
我做了一下更改。。可是还是登陆不上去。。郁闷了。
改后代码如下：
建议。加强下基础知识，做东西要细心
[/Quote]
谢谢。我的确是应该去学习一下基础知识了。其实我现在也在摸索学习中。
我做了一下更改。。可是还是登陆不上去。。郁闷了。
改后代码如下：
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim usnames
dim pws
usnames=replace(trim(request("Username")),"'","") ‘更改
pws=replace(trim(Request("pws")),"'","")
pws=md5(pws)
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where [usnames]='" & Username & "' and pws='" & pws &"'" ’更改
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("usnames")
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>sy_binbin 2010-09-29
- 打赏
- 举报
建议。加强下基础知识，做东西要细心
sy_binbin 2010-09-29
- 打赏
- 举报
usnames=replace(trim(request("usnames")),"'","")这个没有值
<input name='Username' type='text' id='Username' size='20' maxlength='20'>
和表单的名字都不对应，你能获取到值吗？
<input name='Username' type='text' id='Username' size='20' maxlength='20'>
和表单的名字都不对应，你能获取到值吗？
lizeyong 2010-09-29
- 打赏
- 举报
额。。对我数据类型真的不是很有概念。。
我试了。还是老样子。。
sql="select * from rz_userinfo where usnames='" & usnames & "' and pws='" & pws &"'"
rs.open sql,conn,3,3,1
response.write sql
服务器: 消息 170，级别 15，状态 1，行 1
第 1 行: '=' 附近有语法错误。
好晕。
我试了。还是老样子。。
sql="select * from rz_userinfo where usnames='" & usnames & "' and pws='" & pws &"'"
rs.open sql,conn,3,3,1
response.write sql
服务器: 消息 170，级别 15，状态 1，行 1
第 1 行: '=' 附近有语法错误。
好晕。
街头小贩 2010-09-29
- 打赏
- 举报
LZ是不是没有数据类型的概念呀！下面的有必要用ntext么
[LoginIP] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[LastLoginTime] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[logins] [ntext] COLLATE Chinese_PRC_CI_AS NULL
[LoginIP] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[LastLoginTime] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[logins] [ntext] COLLATE Chinese_PRC_CI_AS NULL
街头小贩 2010-09-29
- 打赏
- 举报
打印你的SQL在查询分析器上运行有结果么
lizeyong 2010-09-29
- 打赏
- 举报
现在代码如下：
const.asp
UserServer.asp
数据库如下：
现在登陆不报错。。但还是登陆不上去。
const.asp
<%
strSQLServer="RZSERVER"
strSQLUser="sa"
strSQLPassword="sa"
strSQLDataBase="RzQueue"
connstr = "driver={SQL Server};server=" & strSQLServer & ";UID=" & strSQLUser & ";PWD=" & strSQLPassword & ";database=" & strSQLDataBase & ""
set conn = server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('创建 ADO 对象失败');</script>"
response.end
else
conn.open connstr
if err.number<>0 then
err.clear
set conn=nothing
response.write "<script>alert('SQL Server 数据库连接失败');</script>"
response.end
end if
end if
%>
<%
'sql="select * from config"
'Set rs= Server.CreateObject("ADODB.Recordset")
'rs.open sql,conn,1,1
%>
UserServer.asp
<!--#include file="const.asp" -->
<!--#include file="md5.asp"-->
<script language=javascript>
function CheckForm()
{
if(document.UserLogin.Username.value=="")
{
alert("请输入用户名！");
document.UserLogin.Username.focus();
return false;
}
if(document.UserLogin.pws.value == "")
{
alert("请输入密码！");
document.UserLogin.pws.focus();
return false;
}
}
</script>
<%
Action=Trim(request("Action"))
if Action="Login" then
dim sql
dim rs
dim usnames
dim pws
usnames=replace(trim(request("usnames")),"'","")
pws=replace(trim(Request("pws")),"'","")
pws=md5(pws)
set rs=server.createobject("adodb.recordset")
sql="select * from rz_userinfo where [usnames]='" & usnames & "' and pws='" & pws &"'"
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("usnames")
Response.Redirect "UserServer.asp"
end if
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
end if
%>
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" >
<table width="980" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"><table Class=border width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="title_left" height="32"> 会
员 中 心</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<TR>
<TD> <%If Session("Username")="" Then%>
<table width="100%" border="0" cellpadding="0" cellspacing="3">
<!--DWLayoutTable-->
<tr>
<td height="13" colspan="2" align="right"> <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p></td>
</tr>
<tr>
<td height="126" colspan="2" align="right"> <div align="center">
<table class="main" cellSpacing="0" cellPadding="2" width="100%" border="0" height="1">
<tbody>
<tr>
<td width="100%" height="1"><table width='40%' border='0' align="center" cellpadding='0' cellspacing='0' class="tdbg_left">
<form action='UserServer.asp?Action=Login' method='post' name='UserLogin' onSubmit='return CheckForm();'>
<tr class='title'>
<td height='25' colspan="2" align='right'><div align="center">用户登录</div></td>
</tr>
<tr>
<td height='25' align='right'>用户名：</td>
<td> <input name='Username' type='text' id='Username' size='20' maxlength='20'></td>
</tr>
<tr>
<td height='25' align='right'>密 码：</td>
<td> <input name='pws' type='password' id='pws' size='21' maxlength='20'></td>
</tr>
<tr align='center'>
<td height='25' colspan='2'> <input name='Login' type='submit' id='Login' value=' 登录 '>
<input name='Reset' type='reset' id='Reset' value=' 清除 '></td>
</tr>
<tr>
<td height='20' colspan='2' align='center'><a href='UserReg.asp' target='_blank'>用户注册</a> <a href='GetPassword.asp' target='_blank'>忘记密码</a></td>
</tr>
</form>
</table></td>
</tr>
</tbody>
</table>
</div></td>
</tr>
<tr>
<td width="164" height="19" align="right"> </td>
<td width="583" align="right"> </td>
</tr>
<tr>
<td height="19" align="right" valign="top"> <p align="center" style="word-spacing: 0; margin-top: 0; margin-bottom: 0"> </p></td>
<td align="right" valign="top"><div align="left">您无法进入会员中心，请先登录！如果您不是我们的会员，请立即<font color="#006699"><a href="UserReg.asp"><font color="#FF0000">注册</font></a>。</font></div></td>
</tr>
<tr>
<td height="13" align="right"> </td>
<td> </td>
</tr>
</table>
<%else%>
<TABLE width="85%" align="center" cellPadding=0 cellSpacing=0>
<TBODY>
<TR vAlign=top >
<TD width="100%"> <p style="margin-bottom: 0">
<br>
亲爱的<%=Session("Username")%>：</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
您现在已经进入会员服务中心，这里只有注册会员才能访问。您可在这里修改您的注册信息、获取预约号码。</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
</p>
<p style="word-spacing: 0; margin-top: 0; margin-bottom: 0">
<a href="UserEditPwd.asp">修改密码</a>
<a href="UserEdit.asp">修改会员资料</a>
<a href="UserLogout.asp">退出登录</a></p></TD>
</TR>
</TBODY>
</TABLE>
<%end if%> </TD>
</TR>
</table> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
</BODY></HTML>数据库如下：
CREATE TABLE [rz_userinfo] (
[id] [char] (10) COLLATE Chinese_PRC_CI_AS NULL ,
[usnames] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[pws] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL ,
[sex] [nchar] (16) COLLATE Chinese_PRC_CI_AS NULL ,
[email] [nchar] (16) COLLATE Chinese_PRC_CI_AS NULL ,
[tel] [nchar] (16) COLLATE Chinese_PRC_CI_AS NULL ,
[code] [nchar] (16) COLLATE Chinese_PRC_CI_AS NULL ,
[regdate] [nchar] (16) COLLATE Chinese_PRC_CI_AS NULL ,
[LoginIP] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[LastLoginTime] [ntext] COLLATE Chinese_PRC_CI_AS NULL ,
[logins] [ntext] COLLATE Chinese_PRC_CI_AS NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO
现在登陆不报错。。但还是登陆不上去。
qqm05 2010-09-29
- 打赏
- 举报
楼主，错误没显示出来哦
sy_binbin 2010-09-29
- 打赏
- 举报
把错误信息发出来
错误行是哪行
错误行是哪行
lizeyong 2010-09-29
- 打赏
- 举报
[Quote=引用 17 楼 lizeyong 的回复:]
引用 4 楼 sy_binbin 的回复:
sql="select * from rz_userinfo where [name]='" & name & "' and pws='" & pws &"'"
我去掉了 on error resume next
引用的代码也改过了。。提示如下错误。。好晕。。
Mic……
[/Quote]
数据类型改过了。。还是登陆不上去。。
引用 4 楼 sy_binbin 的回复:
sql="select * from rz_userinfo where [name]='" & name & "' and pws='" & pws &"'"
我去掉了 on error resume next
引用的代码也改过了。。提示如下错误。。好晕。。
Mic……
[/Quote]
数据类型改过了。。还是登陆不上去。。
lizeyong 2010-09-29
- 打赏
- 举报
[Quote=引用 19 楼 sy_binbin 的回复:]
那你就检查一下数据库中name,pws这些字段的数据类型是ntext的不
是的话改成nvarchar
[/Quote]
虽然不是ntext但我改成nvarchar后。还是登陆不了。
我还重新注册了一个账号。值写进去了。但是。。还是登陆不了。
那你就检查一下数据库中name,pws这些字段的数据类型是ntext的不
是的话改成nvarchar
[/Quote]
虽然不是ntext但我改成nvarchar后。还是登陆不了。
我还重新注册了一个账号。值写进去了。但是。。还是登陆不了。
街头小贩 2010-09-29
- 打赏
- 举报
搞了半天是数据类型呀！name,password有用大对象的LZ是第一人
sy_binbin 2010-09-29
- 打赏
- 举报
那你就检查一下数据库中name,pws这些字段的数据类型是ntext的不
是的话改成nvarchar
是的话改成nvarchar
lizeyong 2010-09-29
- 打赏
- 举报
服务器: 消息 170，级别 15，状态 1，行 1
第 1 行: '=' 附近有语法错误。
额，语法错误。。
第 1 行: '=' 附近有语法错误。
额，语法错误。。
lizeyong 2010-09-29
- 打赏
- 举报
[Quote=引用 4 楼 sy_binbin 的回复:]
sql="select * from rz_userinfo where [name]='" & name & "' and pws='" & pws &"'"
[/Quote]
我去掉了 on error resume next
引用的代码也改过了。。提示如下错误。。好晕。。
Microsoft OLE DB Provider for ODBC Drivers '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]不能比较或排序 text、ntext 和 image 数据类型，除非使用 IS NULL 或 LIKE 运算符。
\UserServer.asp, line 32
32行就是
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("name")
Response.Redirect "UserServer.asp"
end if
这块，我一直感觉可能有可能是这里的问题。但一知不知道错在哪里了。
sql="select * from rz_userinfo where [name]='" & name & "' and pws='" & pws &"'"
[/Quote]
我去掉了 on error resume next
引用的代码也改过了。。提示如下错误。。好晕。。
Microsoft OLE DB Provider for ODBC Drivers '80040e14'
[Microsoft][ODBC SQL Server Driver][SQL Server]不能比较或排序 text、ntext 和 image 数据类型，除非使用 IS NULL 或 LIKE 运算符。
\UserServer.asp, line 32
32行就是
rs.open sql,conn,1,3
if not(rs.bof and rs.eof) then
if pws=rs("pws") then
rs("LoginIP")=Request.ServerVariables("REMOTE_ADDR")
rs("LastLoginTime")=now()
rs("logins")=rs("logins")+1
rs.update
session("Username")=rs("name")
Response.Redirect "UserServer.asp"
end if
这块，我一直感觉可能有可能是这里的问题。但一知不知道错在哪里了。
街头小贩 2010-09-29
- 打赏
- 举报
你打印一下SQL在查询分析器上运行一下看有结果集么?
sql="select * from rz_userinfo where name='" & name & "' and pws='" & pws &"'"
rs.open sql,conn,1,1
response.write sql
sql="select * from rz_userinfo where name='" & name & "' and pws='" & pws &"'"
rs.open sql,conn,1,1
response.write sql
街头小贩 2010-09-29
- 打赏
- 举报
[Quote=引用 12 楼 lizeyong 的回复:]
引用 9 楼 xiaofanku 的回复:
引用 8 楼 lizeyong 的回复:
回楼上。。是的。SQL中name是字段名。
晕！你知道在SQL语句中放[]代表什么么
额。不知道。我加了。但是不好使。
[/Quote]
试试我的哪个
引用 9 楼 xiaofanku 的回复:
引用 8 楼 lizeyong 的回复:
回楼上。。是的。SQL中name是字段名。
晕！你知道在SQL语句中放[]代表什么么
额。不知道。我加了。但是不好使。
[/Quote]
试试我的哪个
加载更多回复（24）
