劳烦各位指点,本人感激不尽.

xxqqhh_nn 2001-08-09 08:21:34

谢谢关心!


<%
Function GetSQLServerConnection( Computer, UserID, Password, Db )'GetSQLServerCo
'nnection是函数名
Dim Params, conn

Set GetSQLServerConnection = Nothing
Params = "Provider=SQLOLEDB.1" '使用OLEDB驱动程序打开SQL数据
Params = Params & ";Data Source=" & Computer'SQLSERVER的名称
Params = Params & ";User ID=" & UserID'用户名称
Params = Params & ";Password=" & Password'密码
Params = Params & ";Initial Catalog=" & Db'数据库名称
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Params
Set GetSQLServerConnection = conn
End Function
Function GetSQLServerRs( Computer, UserID, Password, Db, source, Cursor )'GetSQLServerRs是函数名
Dim conn, rs

On Error Resume Next
Set GetSQLServerRs = Nothing
Set conn = GetSQLServerConnection( Computer, UserID, Password, Db )
If conn Is Nothing Then Exit Function

Set rs = Server.CreateObject("ADODB.Recordset")
If Err.Number <> 0 Then Exit Function

rs.Open source, conn, Cursor, 2
If Err.Number <> 0 Then Exit Function
Set GetSQLServerRs = rs
End Function
username=request("username")
mima=request("mima")
rmima=request("rmima")
email=request("email")
realname=request("realname")
sex=request("sex")
nian1=request("nian")
yue=request("yue")
ri=request("ri")
liuyabzhuti=request("liuyanzhuti")
liuyan=request("liuyan")
if mima<>rmima then
response.write"密码不一致"
end if
if username="" or mima="" or email="" or request("niam")="" or request("yue")="" or request("ri")="" then
response.write"请填写必要的项目"
end if

set rs = GetSQLServerRs( "fxl", "administrators" ,"197619", "jiaoyou_data.mdf", "jiaoyou","adopendynamic")

rs.addnew
rs("username")=username
rs("mima")=mima
rs("email")=email
rs("nian")=nian
rs("yue")=yue
rs("ri")=ri
rs("realname")=realname
rs("sex")=sex
rs("liuyanzhuti")=liuyabzhuti
rs("liuyan")=liuyan
rs.update
%>
<%
response.redirect"jiaoyouwelcome.htm"
%>
<html>

<head>
<title></title>
</head>

<body>
</body>
</html>

这是表单:

<html>
交友第一步：填写详细资料（带*号为必填项目）
<form action="jiaoyou.asp" method="post">
<p>用户名： <input type="text" size="20" name="username">*</p>
<p>密码： <input type="text" size="15" name="mima">*</p>
<p>密码校验：<input type="text" size="15" name="rmima">*</p>
<p>E-mail: <input type="text" size="20" name="email">*</p>
<p>真实姓名：<input type="text" size="15" name="realname"></p>
<p>性别：<input type=radio name=sex value="male" checked>男
<input type=radio name=sex value="female">女*</p>
<p>生日：<input type="text" size="4" name="nian">年
<input type="text" size="2" name="yue">月
<input type="text" size="2" name="ri">日*</p>
在文本框中可以使用整数型吗？需要变为整数怎么办。
<p>QQ号：<input type="text" size="8" name="qq"></p>
<p>留言主题：<input type="text" size="15" name="liuyanzhuti">*</p>
留言：<p><textarea name="liuyan" rows="6" cols="30">
</textarea></p>
<input type=submit name=send value="好了">
</form>
</html>

...全文