📄 go.asp

📁 西风班级信息管理系统 v1.1的源码

💻 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>成功发送！</p><p align=center>请点击右上角的<img src="img/close_up.gif">图标关闭窗口</p>
</body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -