📄 addreply.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% option explicit%>
<%Response.Buffer=True%>
<!--#Include file="odbc_conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
</head>
<body>
<%
Dim title,body
'guestname=request.Form("name")
title=session("title")
body=request.Form("body")
Dim sql,sql2
sql = "Insert Into reply(author,title,content,times) values('" & session("name")& "','"&title & "','"&body& "','" & now & "')"
sql2="update news set return=return+1 where title='"&title&"'"
conn.Execute(sql)
conn.Execute(sql2)
conn.Close
set conn=nothing
Response.Redirect "first.asp"
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -