user_control.asp

打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx

if rs("st_userface")="images/face/35.gif" then 
response.Write "selected" 
end if
response.write">女头像十二</option><option value=""images/face/36.gif"" "
if rs("st_userface")="images/face/36.gif" then 
response.Write "selected" 
end if
response.write">女头像十三</option><option value=""images/face/37.gif"" "
if rs("st_userface")="images/face/37.gif" then 
response.Write "selected" 
end if
response.write">女头像十四</option></select></TD></tr>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>Email：</strong></TD><TD width=""444"" colspan=""2""><INPUT maxLength=50 size=30 name=mail value="&rs("st_useremail")&" class=""INPUT""></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>主页：</strong></TD><TD width=""444"" colspan=""2""><INPUT maxLength=100 size=30 name=web value="&rs("st_userhomepage")&" class=""INPUT""></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>QQ号码：</strong></TD><TD width=""444"" colspan=""2""><INPUT maxLength=20 size=30 name=qq value="&rs("st_userqq")&" class=""INPUT""></TD></TR>"& vbCrLf
response.write"<TR align=""center""><TD height=""26"" colspan=""3""><input type=submit value=""修 改"" name=submit class=""put"">&nbsp;<input name=Reset type=reset id=""Reset"" value=""清 空"" class=""put""></TD></TR><input type='hidden' name='username' value=''></TABLE></TD></TR></form>"& vbCrLf
response.write"<iframe src=* height=0 width=0 name=""user_check""></iframe></TABLE></div>"& vbCrLf
end sub
if  request("action")="editpost" then
sql="select * from [St_user] where id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request("pass")<>"" then
rs("st_userpwd")=MD5(trim(replace(request("pass"),"'","")))
end if
rs("st_userqst")=trim(request.Form("question"))
if request("answer")<>"" then
rs("st_userreply")=MD5(trim(replace(request("answer"),"'","")))
end if
rs("st_usersex")=request.Form("sex")
rs("st_userhomepage")=trim(request.Form("web"))
rs("st_useremail")=trim(request.Form("mail"))
rs("st_userqq")=trim(request.Form("qq"))
rs("st_userface")=trim(request.Form("face"))
rs.update
rs.close
set rs=nothing
response.Write"<script language=javascript>alert('恭喜您！资料修改成功！');this.location.href='index.asp';</script>"
end if
if  request("action")="newsok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_news",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("user")=request.Form("user")
rs("content")=request.Form("content")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('新闻发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif request("action")="artok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_art",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("content")=request.Form("content")
rs("writer")=request.Form("writer")
rs("copyright")=request.Form("copyright")
rs("user")=request.Form("user")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('文章发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif request("action")="freeok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_free",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("content")=request.Form("content")
rs("writer")=request.Form("writer")
rs("copyright")=request.Form("copyright")
rs("user")=request.Form("user")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('资源发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif request("action")="jsok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_js",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("content")=request.Form("content")
rs("writer")=request.Form("writer")
rs("copyright")=request.Form("copyright")
rs("user")=request.Form("user")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('网页特效发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif  request("action")="musicok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_music",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("url")=request.Form("url")
rs("size")=request.Form("size")
rs("singer")=request.Form("singer")
rs("user")=request.Form("user")
rs("player")=request.Form("player")
rs("content")=request.Form("content")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('音乐发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif  request("action")="vodok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_vod",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("url")=request.Form("url")
rs("size")=request.Form("size")
rs("singer")=request.Form("singer")
rs("user")=request.Form("user")
rs("player")=request.Form("player")
rs("content")=request.Form("content")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('影视发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif request("action")="picok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_pic",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("content")=request.Form("content")
rs("user")=request.Form("user")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('图片发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
elseif  request("action")="downok" then
set rs=server.CreateObject("adodb.recordset")
rs.open "St_down",conn,1,3
rs.addnew
rs("title")=request.Form("title")
rs("color")=request.Form("color")
rs("class")=request.Form("class")
rs("pic")=request.Form("pic")
rs("content")=request.Form("content")
rs("size")=request.Form("size")
rs("commend")="images/star3.gif"
rs("show")=request.Form("show")
rs("web")=request.Form("web")
rs("url1")=request.Form("url1")
rs("url2")=request.Form("url2")
rs("url3")=request.Form("url3")
rs("user")=request.Form("user")
rs.update
rs.close
set rs=nothing
conn.execute("update St_user set st_usermoney= st_usermoney+ 5 where id="&session("userid")&"")
conn.execute("update St_user set st_usertaxis= st_usertaxis+ 1 where id="&session("userid")&"")
response.write"<script>alert('下载发布成功！请等待管理员审核！');location.href='user_control.asp?action=welcome';</script>"
end if
foot
closedata()

%>