📄 changeboard.asp
字号:
<%@ language="vbscript" %>
<%if request("boardname")="" or request("boardgg")="" or request("boardmm")="" or request("aboutboard")="" or request("boardid")="" then
response.write "请填完整所有空白处!<a href='javascript:history.back();'>返回前页</a>"
response.end
else
DbPath = SERVER.MapPath("db1.mdb")
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
sql="update board_info set boardname='"&trim(request("boardname"))&"',boardgg='"&trim(request("boardgg"))&"',boardmm='"&trim(request("boardmm"))&"',aboutboard='"&trim(request("aboutboard"))&"' where boardid="&cint(request("boardid"))
conn.execute sql
conn.close
set conn=nothing
response.write "信息修改成功!<a href='changeboard.htm'>返回首页登录</a>或继续浏览。"
end if
%>
<html>
<head>
<title></title>
</head>
<body>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -