?? liuyan2.asp
字號(hào):
<%
dim ftitle,fcontent,fdate,fradiobutton
ftitle=request("speak")
if ftitle="" then
showmessage"標(biāo)題，和修改內(nèi)容不能為空！"
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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -