📄 add.asp
字号:
<!--#INCLUDE FILE="odbc_connection.asp"-->
<!--#INCLUDE FILE="function.asp"-->
<%
dim writer_id,title,body,reader_id
title=myReplace(request.form("title")) '调用函数,处理客户提交的数据
body=myReplace(request.form("body"))
name=myReplace(request.form("name"))
email=myReplace(request.form("email"))
Dim sqla,sqlb,strSql
sqla = "Insert into guest(name"
sqlb = "values('" & name & "'"
sqla = sqla & ",title"
sqlb = sqlb & ",'" & title & "'"
If body<>"" Then
sqla = sqla & ",body"
sqlb = sqlb & ",'" & body & "'"
End If
if email<>"" then
sqla = sqla & ",email"
sqlb = sqlb & ",'" & email & "'"
end if
strSql = sqla & ") " & sqlb & ")"
db.Execute(strSql)
db.close
set db=nothing
response.redirect "index.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -