<% Option Explicit %> <% Dim DBC,conn ClassID=request.QueryString("ClassID") Set DBC = new databaseclass Set Conn = DBC.openconnection() Dim I,RsConfigObj Set RsConfigObj = Conn.Execute("Select SiteName,UserConfer,Copyright,isEmail,isChange,IsShop from FS_Config") Set DBC = Nothing %> <% If Request.Form("action")="add" then If Replace(Replace(Replace(request.form("Title"),"'",""),"\",""),"/","")="" or request.form("Content")="" then Response.Write("") Response.End End if If Replace(Replace(Replace(request.form("Author"),"'",""),"\",""),"/","")="" or request.form("Content")="" then Response.Write("") Response.End End if Dim Rs,Sql1,ClassID Set Rs = server.createobject(G_FS_RS) Sql1 = "select * from FS_Contribution where 1=0" Rs.open sql1,conn,1,3 Rs.addnew Rs("ContID") = GetRandomID18() Rs("Title")=NoCSSHackInput(Replace(Replace(Replace(request.form("Title"),"'",""),"\",""),"/","")) If Replace(request.form("SubTitle"),"'","")<>"" then Rs("SubTitle")=NoCSSHackInput(Replace(request.form("SubTitle"),"'","")) End if Rs("Content")=NoCSSHackContent(Request.Form("Content")) Rs("AddTime")=Now() Rs("KeyWords")=NoCSSHackInput(Replace(request.form("KeyWords"),"'","")) Rs("Author")=NoCSSHackInput(Replace(Request.Form("Author"),"'","")) Rs("ClassID")=NoCSSHackInput(Cstr(Request.Form("ClassID"))) Rs.update Conn.execute("update FS_members set ConNum=ConNum+1 where MemName='"&Replace(Replace(Request.Form("Author"),"""",""),"'","")&"'") Response.Write("") Response.End Rs.close() Set rs=nothing End If Dim NewsContent NewsContent = Replace(Replace(Request.Form("Content"),"""","%22"),"'","%27") %> 蘭州天瑞軟件銷售服務有限公司
 
 
網站首頁 公司簡介 新聞動態 產品中心 下載中心 成功案例 服務客戶 在線咨詢 聯系我們
聯系人
聯系電話
        電子郵箱
蘭州天瑞軟件銷售服務有限公司 版權所有 copyright © 2010
地址:蘭州市城關區東崗東路525號(地堪局機關服務中心三樓)
聯系電話:0931-8877463 13993189254 15009319525 傳真:0931-8877463
亚洲欧美午夜情8666|亚洲精品国产精品乱码在线观看|老熟妇乱子伦系列视频|狠狠97人人婷婷五月 国产成人拍拍拍高潮尖叫 国产精品第一页第二 久久久国产精品欧美狂野 欧美精品亚洲精品日韩传电影 欧美自拍亚洲精品 97国产精品无码 国产精品无码素人福利 国产精品videossex久久丽江 99精品国产高清一区二区