<% Select Case request("cmd") Case "save" Call SaveLove() End Select Sub SaveLove() If request("KuKoo_Sender")="" Or request("KuKoo_WishContent")="" Or request("key")="" Then response.write "" response.End Else Dim key,getcode key = Int(request("key")) getcode = Int(session("getcode")) If key <> getcode Then response.write "" response.End End If End If Dim KuKoo_Sender,KuKoo_Picker,KuKoo_WishContent KuKoo_Sender = Trim(request("KuKoo_Sender")) KuKoo_Picker = Trim(request("KuKoo_Picker")) KuKoo_WishContent = Trim(request("KuKoo_WishContent")) If BadWord(KuKoo_Sender,Badwords) Or BadWord(KuKoo_Picker,Badwords) Or BadWord(KuKoo_WishContent,Badwords) Then response.write "" response.End End If Dim KuKoo_Icon,KuKoo_Face,KuKoo_WishIP,KuKoo_WishDate KuKoo_Icon=ReplaceBadChar(request("KuKoo_Icon")) KuKoo_Face=ReplaceBadChar(request("KuKoo_Face")) KuKoo_Sender=ReplaceBadChar(KuKoo_Sender) KuKoo_SenderQQ=request("KuKoo_SenderQQ") if KuKoo_SenderQQ = "" or KuKoo_SenderQQ="QQ号码" then KuKoo_SenderQQ=0 KuKoo_Picker=ReplaceBadChar(KuKoo_Picker) If KuKoo_Icon="" Then KuKoo_Icon="0" If KuKoo_Face="" Then KuKoo_Face="0" If KuKoo_Sender="" Then KuKoo_Sender="匿名" If KuKoo_Picker="" Then KuKoo_Picker=" " KuKoo_WishContent=HTMLEncode(CutStr(KuKoo_WishContent,150)) KuKoo_WishIP=GetIP() KuKoo_ComeFrom=getFrom(KuKoo_WishIP) KuKoo_WishDate=Now() Dim sql,rs,KuKoo_WishID sql="Select * From [KuKoo_LoveWallPosts]" Set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("KuKoo_WishContent")=KuKoo_WishContent rs("KuKoo_Sender")=KuKoo_Sender rs("KuKoo_Picker")=KuKoo_Picker rs("KuKoo_SenderQQ")=KuKoo_SenderQQ rs("KuKoo_WishIP")=KuKoo_WishIP rs("KuKoo_WishDate")=KuKoo_WishDate rs("KuKoo_Icon")=KuKoo_Icon rs("KuKoo_Face")=KuKoo_Face rs("KuKoo_ComeFrom")=KuKoo_ComeFrom rs.update KuKoo_WishID=rs("KuKoo_WishID") rs.close Set rs = Nothing conn.close Set Conn = Nothing response.write "" End Sub %>
↓↓↓请把本站告诉你QQ上的5位好友www.gaoan.cc/lovewall/
祝福对象：
您的姓名： *
您的QQ号码：
字条内容： *
还可以输入 70 个字，不支持html语法。
选择字条颜色：
选择心情图案：
验证码： * 请输入右边数字：
操作：

高安人爱墙声明：
您发布字条即表示同意遵守以下条款：
一、不得利用本站危害国家安全、泄露国家秘密，不得侵犯国家、社会、集体和公民的合法权益；
二、不得发布国家法律、法规明令禁止的内容；互相尊重，对自己在本站的言论和行为负责；
三、本站对您所发布内容拥有处置权。

字条预览：关闭


匿名

<%=Bottom%>