⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_control.asp

📁 打开目录ads文件夹 找到top_ads.js文件 用记事本打开后就可以看到: -------------------------------------- var head_ads_tx
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<body onload=IframeID.document.body.innerHTML=&#039;资源版权归本站所有，转载时请标明版权！&#039;>
<script language="javascript">
function chk(){
document.all("content").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("图片标题不能为空");
document.form.title.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("图片说明不能为空");
IframeID.document.body.focus();
return false;}
if(document.form.writer.value==""){
alert("图片来源不能为空");
document.form.writer.focus();
return false;}
return true;}
</Script>
<%response.write"<form method=""post"" name=""form"" id=""form"" action=""?action=picok""  onsubmit=""return chk();"">"& vbCrLf
response.write"<table width=""100%"" align=center border=""0"" cellpadding=""0"" cellspacing=""0"" rules=none class=3d><tr class=bg height=5><td></td></tr><tr class=bg height=""20""><td>&nbsp;图片标题：<input name=""title"" type=""text"" id=""title"" size=""20"" class=""input"" style=""width:120px""></td></tr><tr class=bg height=""25""><td>&nbsp;图片分类："
st_classify("St_picclass")
response.write"</td></tr><tr class=bg height=""25""><td height=""25"">&nbsp;图片地址：<input name=""pic"" type=""text"" id=""pic""  size=""20"" class=""input"" style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
response.write"<tr height=""25"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=pic""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr><td>"& vbCrLf
St_userhtml()
response.write"</td></tr><tr><td class=""hr""></td></tr><tr height=""30"" class=footbg><td  align=""center""><input name=""user"" type=""hidden""  value="&username&"><input name=""pic2"" type=""submit"" class=""adminbutton"" value=""发 布"">&nbsp;<input name=""Submit2"" type=""reset"" class=""adminbutton"" value=""清 空"" onclick=""ClearReset()""></td></tr><textarea name=""content"" cols=""50"" rows=""50"" id=""content"" style=""display:none""></textarea></table></form>"& vbCrLf
end sub
sub down()
if userdown="no" then
response.write"<script>alert('对不起！暂时不能发布下载！');history.go(-1);</script>"
response.end
end if%>
<body onload=IframeID.document.body.innerHTML='资源版权归本站所有，转载时请标明版权！'>
<script language="javascript">
function chk(){
document.all("content").value=IframeID.document.body.innerHTML;
if(document.form.title.value==""){
alert("下载标题不能为空");
document.form.title.focus();
return false;}
if(document.form.url1.value==""){
alert("下载地址一不能为空");
document.form.url1.focus();
return false;}
if(IframeID.document.body.innerHTML==""){
alert("下载介绍不能为空");
IframeID.document.body.focus();
return false;}
return true;}
</Script>
<%response.write"<form method=""post"" name=""form"" id=""form"" action=""?action=downok"" onsubmit=""return chk();"">"& vbCrLf
response.write"<table width=""100%"" align=center border=""0"" cellpadding=""0"" cellspacing=""0"" rules=none class=3d><tr class=bg height=5><td></td></tr><tr class=bg height=""20""><td>&nbsp;软件名称：<input name=""title"" type=""text"" id=""title"" size=""20"" class=""input"" style=""width:120px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;软件大小：<input name=""size"" type=""text"" id=""size"" size=""20"" class=""input"" style=""width:120px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;软件分类："
st_classify("St_downclass")
response.write"</td></tr><tr class=bg height=""25""><td>&nbsp;软件演示：<input name=""show"" type=""text"" id=""show"" size=""20"" class=""input"" style=""width:300px"" value=""http://DXY.9126.NET""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;官方主页：<input name=""web"" type=""text"" id=""web"" size=""20"" class=""input"" style=""width:300px"" value=""http://DXY.9126.NET""></td></tr>"& vbCrLf
response.write"<tr height=""25"" class=bg><td>&nbsp;软件缩图：<input name=""pic"" type=""text"" id=""pic"" size=""20"" class=""input"" style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
response.write"<tr height=""25"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=downpic""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr class=bg height=""25""><td>下载地址1：<input name=""url1"" type=""text"" id=""url1"" size=""20"" class=""input"" style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
response.write"<tr height=""25"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传文件：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=down""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr class=bg height=""25""><td>下载地址2：<input name=""url2"" type=""text"" id=""url2"" size=""20"" class=""input"" style=""width:300px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>下载地址3：<input name=""url3"" type=""text"" id=""url3"" size=""20"" class=""input"" style=""width:300px""></td></tr><tr><td>"& vbCrLf
St_userhtml()
response.write"</td></tr><tr><td class=""hr""></td></tr><tr height=""30"" class=footbg><td align=""center""><input name=""user"" type=""hidden""  value="&username&"><input name=""down"" type=""submit"" class=""adminbutton"" value=""发 布"">&nbsp;<input name=""Submit2"" type=""reset"" class=""adminbutton"" value=""清 空"" onclick=""ClearReset()""></td></tr><textarea name=""content"" cols=""50"" rows=""50"" id=""content"" style=""display:none""></textarea></table></form>"& vbCrLf
end sub
sub edit_data()
sql="select * from St_user where id="&userid&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
br
response.write"<div align=center><table width=313 border=1 cellpadding=0 cellspacing=0 frame=void rules=none ><FORM name=""userreg"" method='post' action=""?action=editpost""><TR align=""center""><TD height=""26"" colspan=""3"">"& vbCrLf
response.write"<table bgcolor=""#ffffff"" borderColor=""#e6e6e6"" Border=""1"" Cellspacing=""0"" Cellpadding=""5"" width=""535"" align=""Center"" style=""border-collapse: collapse"" id=""table1"">"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><b>用户名：</b></TD><TD width=""444"" colspan=""2""><INPUT maxLength=14 name=""stname"" name=""stname"" size=20 class=""INPUT"" value="&rs("st_username")&" disabled></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><B>密   码：</B></TD><TD width=248><INPUT type=password maxLength=12 size=30 name=pass id=pass class=""INPUT""><font color=""#FF0000"">*不修改不填</font></TD><TD width=182 rowspan=""6"" align=center><img id=face src="&rs("st_userface")&" border=0></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>确认密码：</strong></TD><TD width=""248""><INPUT type=password maxLength=12 size=30 name=pass2 id=pass2 class=""INPUT""><font color=""#FF0000"">*不修改不填</font></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>密码问题：</strong></TD><TD width=""248""><input type=text maxlength=50 size=30 name=""question"" value="&rs("st_userqst")&" id=""question"" class=""INPUT""><font color=""#FF0000"">*</font></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>问题答案：</strong></TD><TD width=""248""><INPUT type=text maxLength=20 size=27 name=""answer"" id=""answer"" class=""INPUT""><font color=""#FF0000"">*不修改不填</font></TD></TR>"& vbCrLf
response.write"<TR bgcolor=""#FFFFFF""><TD width=""68""><strong>性别：</strong></TD><TD width=""248""><input type=""radio"" name=""sex"" value=""男"" "
if rs("st_usersex")="男" then 
response.Write"checked" 
end if
response.write">男<input name=""sex"" type=""radio"" value=""女"" "
if rs("st_usersex")="女" then 
response.Write"checked" 
end if
response.write">女</TD></TR><TR><TD width=""68""><b>选择头像：</b></TD><TD width=""248""><select name=""face"" class=""input"" onChange=""document.images['face'].src=options[selectedIndex].value;""  size=1 >"
response.write"<option value=""images/face/01.gif"""
if rs("st_userface")="images/face/01.gif" then 
response.Write "selected" 
end if
response.write">男头像一</option><option value=""images/face/02.gif"""
if rs("st_userface")="images/face/02.gif" then 
response.Write "selected" 
end if
response.write">男头像二</option><option value=""images/face/03.gif"""
if rs("st_userface")="images/face/03.gif" then 
response.Write "selected" 
end if
response.write">男头像三</option><option value=""images/face/04.gif"""
if rs("st_userface")="images/face/04.gif" then 
response.Write "selected" 
end if
response.write">男头像四</option><option value=""images/face/05.gif"""
if rs("st_userface")="images/face/05.gif" then 
response.Write "selected" 
end if
response.write">男头像五</option><option value=""images/face/06.gif"""
if rs("st_userface")="images/face/06.gif" then 
response.Write "selected" 
end if
response.write">男头像六</option><option value=""images/face/07.gif"" "
if rs("st_userface")="images/face/07.gif" then 
response.Write "selected" 
end if
response.write">男头像七</option><option value=""images/face/11.gif"" "
if rs("st_userface")="images/face/11.gif" then 
response.Write "selected" 
end if
response.write">男头像八</option><option value=""images/face/12.gif"" "
if rs("st_userface")="images/face/12.gif" then 
response.Write "selected" 
end if
response.write">男头像九</option><option value=""images/face/13.gif"" "
if rs("st_userface")="images/face/13.gif" then 
response.Write "selected" 
end if
response.write">男头像十</option><option value=""images/face/14.gif"" "
if rs("st_userface")="images/face/14.gif" then 
response.Write "selected" 
end if
response.write">男头像十一</option><option value=""images/face/15.gif"" "
if rs("st_userface")="images/face/15.gif" then 
response.Write "selected" 
end if
response.write">男头像十二</option><option value=""images/face/16.gif"" "
if rs("st_userface")="images/face/16.gif" then 
response.Write "selected" 
end if
response.write">男头像十三</option><option value=""images/face/17.gif"" "
if rs("st_userface")="images/face/17.gif" then 
response.Write "selected" 
end if
response.write">男头像十四</option><option value=""images/face/21.gif"" "
if rs("st_userface")="images/face/21.gif" then 
response.Write "selected" 
end if
response.write">女头像一</option><option value=""images/face/22.gif"" "
if rs("st_userface")="images/face/22.gif" then 
response.Write "selected" 
end if
response.write">女头像二</option><option value=""images/face/23.gif"" "
if rs("st_userface")="images/face/23.gif" then 
response.Write "selected" 
end if
response.write">女头像三</option><option value=""images/face/24.gif"" "
if rs("st_userface")="images/face/24.gif" then 
response.Write "selected" 
end if
response.write">女头像四</option><option value=""images/face/25.gif"" "
if rs("st_userface")="images/face/25.gif" then 
response.Write "selected" 
end if
response.write">女头像五</option><option value=""images/face/26.gif"" "
if rs("st_userface")="images/face/26.gif" then 
response.Write "selected" 
end if
response.write">女头像六</option><option value=""images/face/27.gif"" "
if rs("st_userface")="images/face/27.gif" then 
response.Write "selected" 
end if
response.write">女头像七</option><option value=""images/face/31.gif"" "
if rs("st_userface")="images/face/31.gif" then 
response.Write "selected" 
end if
response.write">女头像八</option><option value=""images/face/32.gif"" "
if rs("st_userface")="images/face/32.gif" then 
response.Write "selected" 
end if
response.write">女头像九</option><option value=""images/face/33.gif"" "
if rs("st_userface")="images/face/33.gif" then 
response.Write "selected" 
end if
response.write">女头像十</option><option value=""images/face/34.gif"" "
if rs("st_userface")="images/face/34.gif" then 
response.Write "selected" 
end if
response.write">女头像十一</option><option value=""images/face/35.gif"" "
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -