📄 chuli.asp
字号:
<%
if session ("name1") = "" then
session ("tishi") = "未注册用户不能直接登录，请注册！"
response.redirect "..\setup2.asp"
end if
%>
<%
name2 = request ("name1")
neirong = request ("neirong")
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../format.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
Set Cnn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.recordset")
set rs1 = Server.CreateObject("ADODB.recordset")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("..\base\dumm.mdb")
Cnn.Open StrCnn
rs.open "update 资料 set 金钱 = 金钱 - 10 where 昵称 = '" & session ("name1") & "'",cnn
sz = "'" & name2 &_
"', '"& neirong &_
"', '"& session ("name1") &_
"', '"& now() & "'"
rs1.open "insert into qq(接收人,内容,发送人,时间) values("&sz&")",cnn
cnn.close %>
<table width="280" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td align="center">发送成功，本站已发出信息通知对方！</td>
</tr>
<tr>
<td align="center"><a href="javascript:history.back();">返回</a></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -