?? modi.asp
字號:
<%if session("password")<>"" then%>
<%
dim IID
IID=request("id")
dim name,pwd,email,person
dim sql
dim rs
if request("xh")="" then
response.write "<script language=JavaScript>" & chr(13) & "alert('請輸入學(xué)號!');" & "history.back()" & "</script>"
Response.End
end if
user=request("user")
xh=request("xh")
cj=request("cj")
set rs=server.createobject("adodb.recordset")
conn = "DBQ=" + server.mappath("cj.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
sql="update bbs1 set user='"&user&"',xh='"&xh&"',cj='"&cj&"' where id="+IID
rs.Open sql,conn,1,1
response.write "<script language=JavaScript>" & chr(13) & "alert('同學(xué)信息修改成功!');"&"window.location.href = 'admin.asp'"&" </script>"
set rs=nothing
%>
<%else
Response.Redirect "admpost.asp"
end if%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -