📄 tgaddz.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/auto.asp" -->
<%
zhuti=request.Form("zhuti")
content=request.Form("content")
quanxian=request.form("quanxian")
str="select * from tongzhi order by id desc"
set rs1=CN.execute(str)
maxid=rs1("id")+1
if zhuti<>"" and content<>""then
set RS = server.CreateObject("ADODB.Recordset")
RS.open "tongzhi" , CN,1,3
RS.addnew
RS("id")=maxid
RS("biaoti")=zhuti
RS("faburen")=Session("Rname")
RS("fbshj")=Date()&" "&time()
RS("cishu")=0
RS("neirong")=content
RS("quanxian")=quanxian
RS.update
RS.close
set RS = nothing
end if
set rs1=nothing
CN.close
response.Redirect("tongzhitianjia.asp")
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -