📄 inforl.asp
字号:
<%
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
sql="select * from [infor]"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,3,3 '以写入方式打开
rs.addnew '添加新的记录
rs("userid")=session("userid")
rs("usersn")=trim(request("usersn"))
rs("username")=session("username")
rs("userInfor")=trim(request("userInfor"))
rs.update
rs.close
set rs=nothing
response.Write("<script>alert('发布成功!');window.location.href='inform.asp';</script>")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -