?? go.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> </p><p align="center">成功發送！</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 + -