📄 liuyan2.asp
字号:
<%
dim ftitle,fcontent,fdate,fradiobutton
ftitle=request("speak")
if ftitle="" then
showmessage"标题，和修改内容不能为空！"
end if
Set conn= Server.CreateObject("ADODB.Connection")
Path=Server.MapPath("AnswerData.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Path
strsql="insert into speak(liuyan)values('"&ftitle&"')"
conn.execute(strsql)
conn.close
set conn=nothing
%>
<html>
<head>
<title>显示</title>
</head>
<body background="image/back.gif">
<font size="6" color="#006699">添加留言成功</font>
<font size="6" color="#9999FF"><a href="index.asp">返回主页</a></font>
<%
sub showmessage(message)
response.write"<center><h3>"&message&"</h3>"
response.write"<a href=liuyan.asp>返回上一页!</a></center>"
response.end
end sub
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -