📄 talk_ty.asp
字号:
<%@ Language=VBScript %>
<html>
<head>
<meta name="GENERATOR" Content="Microsoft FrontPage 5.0">
<style type="text/css">
<!--
body {
font-size: 12px;
}
-->
</style>
<script language="JavaScript">
function guanbi(){
window.close()
}
</script>
</head>
<body>
<div align="center">
<p>
<%
set gconn=server.CreateObject ("adodb.connection")
gconn.Open "Driver={Microsoft Access Driver (*.mdb)};password=8888;dbq=" & server.MapPath ("guest/save/guestbook.mdb")
set myrs=server.CreateObject ("adodb.recordset")
if request("talkcontent")<>"" then
talker=request("talker")
talk=request("talkcontent")
tuya_id=request("tuya_id")
tuya_type=request("tuya_type")
ip=Request.ServerVariables ("remote_addr")
sq="insert into tuya_talk (talker,talk,tuya_id,talker_ip,tuya_type)values('"&talker&"','"&talk&"',"&tuya_id&",'"&ip&"',"&tuya_type&")"
'response.Write sq
myrs.Open sq,gconn,1,3
'myrs.Close
gconn.Close
response.Write("操作成功，感谢你的发言！</p>")
end if
if request("delid")<>"" and session("admin")=true then
delid=request("delid")
sq="delete * from tuya_talk where id="&delid
'response.Write(sq)
myrs.open sq,gconn,1,3
gconn.close()
response.Write("操作成功!</p>")
end if
%>
<p><a href="javascript:guanbi()">关闭窗口</a></p>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -