?? writepost.asp
字號:
<!--#include file="inc/db.inc"-->
<%
Function Sqlstr(data)
sqlstr=Replace(data,"'","''")
End Function
userid=session("myuserid")
geter=request.form("geter")
set rs=Server.CreateObject ("ADODB.RECORDSET")
mysql="select truename from txluser where userid='"&geter&"'"
rs.open mysql,conn,1,1
truegeter=rs("truename")
set rs=nothing
title=sqlstr(request.form("title"))
content=sqlstr(request.form("content"))
content=replace(content,"<","〈",1)
content=replace(content,">","〉",1)
content=replace(content,chr(13)&chr(10),"<br>",1)
flag=request("flag")
if flag="reg" then
set rs=Server.CreateObject ("ADODB.RECORDSET")
rs.open "loveword",conn,2,2,adCmdTable
rs.addnew
rs("userid")=userid
rs("geter")=geter
rs("title")=title
rs("content")=content
rs("posttime")=now
rs("writer")=request("writer")
rs("truegeter")=truegeter
rs.update
rs.close%>
<script language="Javascript">
alert('填寫成功,按確定關閉本窗口!');
opener.location.reload();
window.close();
</Script>
<%else
set rs=Server.CreateObject ("ADODB.RECORDSET")
sql="select * from loveword where id="&flag
rs.open sql,conn,1,3
rs("userid")=userid
rs("geter")=geter
rs("title")=title
rs("content")=content
rs("posttime")=now
rs("writer")=request("writer")
rs("truegeter")=truegeter
rs.update
rs.close
%>
<script language="Javascript">
alert('修改成功,按確定關閉本窗口!');
opener.location.reload();
window.close();
</Script>
<%end if%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -