📄 write.asp

📁 本系统是基于ASP的动态旅游网站开发

💻 ASP

字号:


<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Refresh" content="2; URL=liuyan.asp">
<title>留言成功</title>
</head>
<body>
<%
set conn = server.createobject("ADODB.Connection")
conn.connectionstring = "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("liuyan.mdb")
conn.open
if request.form("name")="" then
name="游客"
else 
name=request.form("name")
end if
face=request.form("face")
email=request.form("email")
url=request.form("url")
OICQ=request.form("OICQ")
sex=request.form("sex")
ly=request.form("ly")
if ly="" then
errmsg=errmsg & "不是想留言吗？怎么没有写呀？\n"
end if
if request.cookies("ly")=ly then
errmsg=errmsg & "我知道啦，下一条一样哦。别重复嘛！\n"
end if
if errmsg<>"" then
    Conn.Close
    Set conn = nothing
    Set rsc = nothing
    response.write("<script>alert('" & errmsg & "');history.go(-1)</script>")
    response.end
end if
response.cookies("ly")=ly
re=request.form("re") 
sSQL="insert into book(name,face,email,url,OICQ,sex,ly,re)"
sSQL=sSQL & "values('" & name & "','" & face & "','" & email & "','" & url & "','" & OICQ & "','"& sex &"','"& ly &"','"& re &"')"
conn.execute sSQL
conn.close
set cnn=nothing
%>
<p align="center">
<%response.write "留言成功:)"%></p>
<p align="center"><%response.write"3秒后跳转到查看留言"%></p>
<p align="center"><a href="new.asp"><%response.write">>>>>返回首页>>>>>"%></a></p>
<p align="center"><a href="liuyan.asp"><%response.write">>>>>查看留言>>>>>" %></a></p>
</p>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -