📄 go.asp

📁 一路飞扬在线同学录单班级版,主要用于个人系统中的同学录,不过对于学习有帮助!

💻 ASP

字号:

<!--#include file="inc/DB.INC"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()
geter=request.form("geter")
userid=session("myuserid")

Function Sqlstr(data)
 	sqlstr=Replace(data,"'","''")
End Function
content=sqlstr(request.form("content"))
content=replace(content,"<","〈",1)
content=replace(content,">","〉",1)
content=replace(content,chr(13)&chr(10),"<br>",1)
posttime=now

sql="select truename from txluser where userid='"&userid&"'"
set rs=conn.execute(sql)
writer=rs("truename")
set rs=nothing

sql="select truename from txluser where userid='"&geter&"'"
set rs=conn.execute(sql)
truegeter=rs("truename")
set rs=nothing

set rs=Server.CreateObject ("ADODB.RECORDSET")
	rs.open "private",conn,2,2,adCmdTable
	rs.addnew
	rs("userid")=userid
	rs("geter")=geter
	rs("content")=content
	rs("posttime")=now
	rs("writer")=writer
	rs("truegeter")=truegeter
	rs.update
	rs.close
	set conn=nothing
%>
<link href="jscs/css.css" type="text/css" rel="stylesheet">
<body bgColor="#E4E8EF">
<p>&nbsp;</p>
<p align="center">恭喜!恭喜!成功发送！(一路飞扬在线 http://wyy.9yz.com)</p>
<p align="center">请点击右上角的<img src="img/close_up.gif" WIDTH="11" HEIGHT="11">图标关闭窗口</p>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -