懂vb的来看下

[youliny]

<!--#include file="../inc/md5.asp"-->
<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%
dim password
call SaveSqlLog(1)
call SF_Sql
if int(replace(trim(Request("regjm")),"'",""))<>int(Session("GetCode")) then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·认证码

输入错误');history.go(-1);</Script>"
Response.End
end if
'-------------------------------------------
nick=replace(trim(request("nick")),"'","")
password=replace(trim(Request("password")),"'","")
'response.Write password
'response.Write "\"
password=md5(password)
'response.Write password
'response.End()
'--------------------企业过期数据检查------------------------
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_user"
rs.open sql,conn,1,3
do while not rs.eof
if cdate(year(rs("SMT_ktdate"))&"-"&month(rs("SMT_ktdate"))&"-"&day(rs("SMT_ktdate")))

<=date() then
rs("SMT_key")=2
else
if rs("SMT_key")=2 then
rs("SMT_key")=1
end if
end if
rs.update
rs.movenext
loop
rs.close
set rs=nothing
'--------------------------------------------
set rs=server.createobject("adodb.recordset")
sql="select * from SMT_admin where SMT_password='"&password&"' and

SMT_nick='"&nick&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then

if password=rs("SMT_password") and nick=rs("SMT_nick") then
Session("admin")=rs("SMT_nick")
session("adminflag")=rs("SMT_flag")
response.redirect "manage.asp"

else
call Error
end if
else
call Error()
end if

sub Error()
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·用户名

或密码错误');history.go(-1);</Script>"
Response.End
end sub
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
帮我看下有没有错误。
我不懂VB。

[threenewbee]

这个是 asp。

放在 IIS 上运行下。

[bcrun]

同上，楼主先不管懂不懂具体的语法什么的，也得先分清楚是哪种类型的应用和执行环境再说吧。

[无·法]

点击 管理菜单 - 移动 - “web开发-asp”

[choovy123]

哈
楼主不懂就要码究一下
不然你发的问题别人不知所云

[无·法]

[Quote=引用楼主 youliny 的回复:]
<!--#include file="../inc/md5.asp"-->
<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<%
dim password
call SaveSqlLog(1)
call SF_Sql
if int(replace(trim(Request("regjm")),"'",""))<>int(S
……
%>
帮我看下有没有错误。
我不懂VB。
[/Quote]你应该出了错然后指出出错的地方问解决方法。

[无·法]

if int(replace(trim(Request("regjm")),"'",""))<>int(Session("GetCode")) then
上面这句int不需要吧

[choovy123]

ASP好像有客户端/服务器相应的语言代码
高度怀疑楼主的可能是加密解密算法的问题(MD5)