ziliaoasp.asp

来自「本网上拍卖系统选用ASP + SQL Server进行开发, 是一个基于Brow」· ASP 代码 · 共 35 行

<%

SqlDatabaseName = "paimai"            			      '数据库名
SqlUsername = "sa"                                    '用户名
SqlPassword = " "                                      '用户密码
Dim Conn,ConnStr
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider = Sqloledb; Persist Security Info=false; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & ";"
Conn.Open ConnStr

     set rs=Server.CreateObject("ADODB.Recordset")
      userid=session("userid")
	sql="select * from [user] where userid='"&userid&"';"
	
	rs.open sql,conn,3,3	'以写入方式打开
	'rs.addnew	'添加新的记录
	rs("usersn")=trim(request("usersn"))
	rs("username")=trim(request("username"))
	rs("userpwd")=trim(request("userpwd"))
	rs("userrpwd")=trim(request("userrpwd"))
	rs("usersex")=trim(request("usersex"))
	rs("useraddr")=trim(request("useraddr"))
	rs("useremail")=trim(request("useremail"))
	rs("userzip")=trim(request("userzip"))
	rs("usercred")=trim(request("usercred"))
	rs("usertel")=trim(request("usertel"))
	rs("usermobile")=trim(request("usermobile"))
	rs("userqq")=trim(request("userqq"))
	rs.update
	rs.close
	set rs=nothing
	response.Write("<script>alert('修改成功！');window.location.href='myxinxi.asp';</script>")

%>