<% 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") %> 蘭州天瑞軟件銷售服務有限公司

蘭州天瑞軟件銷售服務有限公司

聯系人
聯系電話	電子郵箱

中国人在线观看免费,一本一道久久综合天天网,无码欧美熟妇人妻AV在线,国内精品九九久久精品