<%set book=conn.execute("select * from book_setup") sitename=book("sitename") admin=book("admin") password=book("password") maxlength=cint(book("maxlength")) view=book("view") pages=cint(book("pages")) html=cint(book("html")) mailyes=cint(book("mailyes")) book_jianju=cint(book("book_jianju")) huifutishi=cstr(book("huifutishi")) huifucolor=cstr(book("huifucolor")) bad=cstr(book("bad")) set book=nothing set rs=conn.execute("select * from web_config") if not rs.eof then Response.Cookies("config").Path = webdir '不加密用戶名,使登錄的時候直接返回用戶名.減少用戶輸入. web_title = rs(0) web_url = rs(1) web_defaultclass=rs(2) web_logo = rs(3) web_banner=rs(4) web_keyword = rs(5) web_content = rs(6) Web_bottom = rs(7) gonggao = rs(8) end if rs.close '檢查用戶輸入的內容中是否含有非法字符 function checktxt(txt) chrtxt="33|34|35|36|37|38|39|40|41|42|43|44|47|58|59|60|61|62|63|91|92|93|94|96|123|124|125|126|128" chrtext=split(chrtxt,"|") for c=0 to ubound(chrtext) txt=replace(txt,chr(chrtext(c)),"") next checktxt=txt end function if request("send")="ok" then username=trim(request.form("username")) usermail=trim(request.form("usermail")) if username="" or request.form("Comments")="" then response.write "" response.end end if if checktxt(request.form("username"))<>request.form("username") then response.write "" response.end end if if mailyes=0 then '郵箱為必填時檢查郵箱是否合法 if checktxt(request.form("usermail"))<>request.form("usermail") then response.write "" response.end end if if Instr(usermail,".")<=0 or Instr(usermail,"@")<=0 or len(usermail)<10 or len(usermail)>50 then response.write "" response.end end if end if if len(request.form("Comments"))>maxlength then response.write "" response.end end if Comments1=request.form("Comments") bad1=split(bad,"/") '過濾臟話 for t=0 to ubound(bad1) Comments1=replace(Comments1,bad1(t),"***") next if request.form("Comments")<>Comments1 then response.write "" response.end end if getcode=oa.sqlrequest("checkcode") if getcode<>session("getcode") then oa.msgshow("驗證碼錯誤!請返回重新輸入!") set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from Feedback where online='1' order by Postdate desc" rs.open sql,conn,1,3 rs.Addnew rs("username")=Request("username") rs("comments")=Request("comments") rs("usermail")=Request("usermail") rs("face")=Request("face") rs("pic")=Request("pic") rs("url")=Request("url") rs("qq")=Request("qq") rs("cszyz")="cszyz" rs("zyzbook")=oa.sqlrequest("checkcode") view=cstr(view) if view<>"0" then view="1" rs("online")=view rs("IP")=Request.serverVariables("REMOTE_ADDR") rs.Update rs.close set rs=nothing response.write "" response.end end if %>

  • <listing id="x6rtw"><menu id="x6rtw"></menu></listing>
  • <listing id="x6rtw"><object id="x6rtw"></object></listing>
      <listing id="x6rtw"><cite id="x6rtw"><p id="x6rtw"></p></cite></listing>
      1. 在線留言
        ·  當前位置:網站首頁 >> 在線留言
            
        您的姓名:
        *
        您的郵箱:
        <%if mailyes=0 then%> * <%end if%>
        電話:
        其它聯系方式:
        (如QQ、MSN等)
        留言內容:
        (<%=maxlength%>字以內)
        請選擇表情:

        請選擇頭像:

        驗證碼:
        請在左邊輸入 驗證碼,看不清楚?請點擊刷新驗證碼
        西西GOGO高清大胆专业,国产精品泄火熟女,天堂AⅤ日韩欧美国产,成在线人永久免费视频播放