是在ASP吗?那可以这样子
<%
Set Conn= Server.CreateObject("ADODB.Connection")
Conn.ConnectionString="Provider=SQLServer;uid=数据库用户名;pwd=数据库密码"'连接数据库
Conn.Open'打开数据库
Sub connClose() '定义一个关闭数据库的子函数
Conn.Close
Set Conn = nothing
End Sub
%>
<%
Dim uName:uName=request.Form("txtUname")
Dim uPwd:webshopid=request.Form("txtPwd")
if uName="" Then
Response.Write("请填写你的用户名!")
Response.End
End if
if uPwd="" Then
Response.Write("请填写密码!")
Response.End
End if
set rs=server.createobject("adodb.recordset")
Conn.Open
rs.open "select * from 用户表 where uName='"&usname&"'",Conn,1,1
if rs.bof or rs.eof then
rs.addnew'添加资料
rs("用户名字段")=uName
rs("密码字段")=uPwd
rs.update
else
response.write("用户已存在!")
end if
rs.close
set rs=nothing
call connClose()