python2.7 发送邮件:asp问题,为什么我注册不了帐号|?

来源:百度文库 编辑:中科新闻网 时间:2024/04/28 23:00:42
我写的代码如下,运行也没有问题,可是数据库里就是没有注册的帐号,这是为什么啊??
<!--#include file="../conn.asp"-->
<%
On Error Resume Next
If Trim(Request("userid"))="" Or Trim(Request("pwd"))="" Or Trim(Request("dpwd"))="" Then
Response.Write "管理帐号,管理口令,确认口令必须输入"
Response.Write "<p><a href='zhuce.asp'>重新填写</a>"
Else

Dim objconn
set objconn=server.createobject("ADODB.connection")
objconn.connectionstring = "provider=Microsoft.jet.oledb.4.0;"&"data source="&server.mappath("friend.mdb")
objconn.open
strsql="insert into admin(user,passwd)values('"&userid&"','"&pwd&"')"
objconn.Execute(strSql) '执行添加操作

'下面判断插入过程有无错误,并给出相应信息
If objconn.Errors.Count>0 Then
Response.Write "保存过程中发生错误,必须重新填写"
Response.Write "<p><a href='zhuce.asp'>重新填写</a>"
Else
Response.Write "<h2 align='center'>您的信息已经安全加入,请牢记密码</h2>"
Response.Write "<p>管理帐号: "&user&""
Response.Write "<p><a href='zhuce.asp'>继续添加</a>"
End If
End If
%>
改了之后还是不行,
<%
On Error Resume Next
dim userid,pwd
If Trim(Request("userid"))="" Or Trim(Request("pwd"))="" Or Trim(Request("dpwd"))="" Then
Response.Write "管理帐号,管理口令,确认口令必须输入"
Response.Write "<p><a href='zhuce.asp'>重新填写</a>"
Else

Dim objconn
set objconn=server.createobject("ADODB.connection")
objconn.connectionstring = "provider=Microsoft.jet.oledb.4.0;"&"data source="&server.mappath("friend.mdb")
objconn.open
userid=request("userid")
pwd=request("pwd")
strsql="insert into admin(user,passwd)values('"&userid&"','"&pwd&"')"
objconn.Execute(strSql) '执行添加操作

....

userid和pwd好像未定义吧
strsql="insert into admin(user,passwd)values('"&userid&"','"&pwd&"')"
前加上:
userid=request("userid")
pwd=request("pwd")

你注册的信息都是在第一页判断是否为空的,你这样写不是很乱,还有就是一楼的人说的你的变量未定义