UC知道asp 注册
来源：百度知道 编辑：UC知道 时间：2024/06/06 06:01:25
请高手帮忙看下列注册代码，但数据无法写入数据库中，弄了很久没找出问题。在这里先谢谢了
conn.asp
<%
dim conn
dim connstr
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data#.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
dim badword
badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|="
if request.QueryString<>"" then
chk=split(badword,"|")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write "<script language=javascript>alert('传参错误！参数 "&query_name&" 的值中包含非法字符串！nn');location='"&
conn.asp
<%
dim conn
dim connstr
'on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data#.mdb")
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
set rs=server.createobject("adodb.recordset")
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
<%
dim badword
badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|="
if request.QueryString<>"" then
chk=split(badword,"|")
for each query_name in request.querystring
for i=0 to ubound(chk)
if instr(lcase(request.querystring(query_name)),chk(i))<>0 then
response.write "<script language=javascript>alert('传参错误！参数 "&query_name&" 的值中包含非法字符串！nn');location='"&
错误提示是什么?
============================
用这个写法~`
<%
if ac="adduser" then
set rs=server.createobject("adodb.recordset")
rs.open "select * from learning where username='"&request.Form("username")&"'",conn,1,3
if NOT rs.eof then
msg=msg&"<br>"&"用户名被人注册"
response.Redirect("reg.asp?msg="&msg)
Else
rs.addnew
rs("username")=username
rs("password")=password
rs.update
rs.close
set rs=nothing
End If
%>
数据库所在文件夹访问权限没问题吧?程序所在盘是ntfs 还是fat?