user_control.asp

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

response.write"<tr height=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=news""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr><td>"& vbCrLf
st_userhtml()
response.write"</td></tr><tr><td class=""hr""></td></tr>"& vbCrLf
response.write"<tr height=""30"" class=footbg><td  align=""center"">"& vbCrLf
response.write"<input name=""user"" type=""hidden""  value="&username&">"& vbCrLf
response.write"<input name=""news"" 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 art()
if userart="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布文章功能！');history.go(-1);</script>"
response.end
end if%>
<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=artok"" 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 height=""25"" class=bg><td>&nbsp;文章作者：<input name=""writer"" type=""text"" id=""writer"" size=""20"" class=""input"" style=""width:120px"">&nbsp;<button onClick=""writer.value='未知'"" class=button>未知</button>&nbsp;<button onClick=""writer.value='网络'"" class=button>网络</button>&nbsp;<button onClick=""writer.value='"&webceo&"'"" class=button>"&webceo&"</button></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;文章分类："
st_classify("St_artclass")
response.write"</td></tr><tr height=""25"" class=bg><td>&nbsp;文章版权：<input name=""copyright"" type=""radio"" value=""原创"" checked>&nbsp;原创&nbsp;<input name=""copyright"" type=""radio"" value=""转载"">&nbsp;转载</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=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=art""></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=""art"" 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 free()
if userfree="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布免费资源功能！');history.go(-1);</script>"
response.end
end if%>
<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=freeok"" 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 height=""25"" class=bg><td>&nbsp;资源来源：<input name=""writer"" type=""text"" id=""writer"" size=""20"" class=""input"" style=""width:120px"">&nbsp;<button onClick=""writer.value='未知'"" class=button>未知</button>&nbsp;<button onClick=""writer.value='网络'"" class=button>网络</button>&nbsp;<button onClick=""writer.value='"&webceo&"'"" class=button>"&webceo&"</button></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;资源分类："
st_classify("St_freeclass")
response.write"</td></tr><tr height=""25"" class=bg><td>&nbsp;资源版权：<input name=""copyright"" type=""radio"" value=""原创"" checked>&nbsp;原创&nbsp;<input name=""copyright"" type=""radio"" value=""转载"">&nbsp;转载</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=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=art""></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=""free"" 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 js()if userjs="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布网页特效功能！');history.go(-1);</script>"
response.end
end if%>
<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=jsok"" 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 height=""25"" class=bg><td>&nbsp;特效来源：<input name=""writer"" type=""text"" id=""writer"" size=""20"" class=""input"" style=""width:120px"">&nbsp;<button onClick=""writer.value='未知'"" class=button>未知</button>&nbsp;<button onClick=""writer.value='网络'"" class=button>网络</button>&nbsp;<button onClick=""writer.value='"&webceo&"'"" class=button>"&webceo&"</button></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;特效分类："
st_classify("St_jsclass")
response.write"</td></tr><tr height=""25"" class=bg><td>&nbsp;特效版权：<input name=""copyright"" type=""radio"" value=""原创"" checked>&nbsp;原创&nbsp;<input name=""copyright"" type=""radio"" value=""转载"">&nbsp;转载</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=js""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr height=""25"" class=bg><td style=""text-vlign: center;text-align: left"">&nbsp;特效代码：<textarea name=""content"" style=""width:400;height:190;"" id=""content"" rows=""1"" cols=""20"" class=input></textarea></td></tr>"& vbCrLf
response.write"<tr height=""30"" class=footbg><td align=""center""> <input name=""user"" type=""hidden""  value="&username&"><input name=""js"" type=""submit"" class=""adminbutton"" value=""发 布"">&nbsp;<input name=""Submit2"" type=""reset"" class=""adminbutton"" value=""清 空"" onclick=""ClearReset()""></td></tr></table></form>"& vbCrLf
end sub
sub vod()
if uservod="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布影视功能！');history.go(-1);</script>"
response.end
end if%>
<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;}
return true;}
</Script>
<%response.write"<form method=""post"" name=""form"" id=""form"" action=""?action=djok"" 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=""singer"" type=""text"" id=""singer"" size=""20"" class=input style=""width:120px"">&nbsp;<button onClick=""singer.value='未知'"" class=button>未知</button></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_vodclass")
response.write"</td></tr><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=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=vodpic""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr height=""25"" class=bg><td>&nbsp;播放地址：<input name=""url"" type=""text"" id=""url""  size=""20"" class=input style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
response.write"<tr height=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传影视：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=vod""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr class=bg height=""25""><td>&nbsp;播放类型：<select name=player class=input style=""width:120px""><option value=""media"">media格式</option><option value=""real"">real格式</option><option value=""flash"">Flash格式</option></select></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=""vod"" 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 music()
if usermusic="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布音乐功能！');history.go(-1);</script>"
response.end
end if%>
<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;}
return true;}
</Script>
<%response.write"<form method=""post"" name=""form"" id=""form"" action=""?action=musicok"" 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:200px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;演唱歌手：<input name=""singer"" type=""text"" id=""singer"" size=""20"" class=input style=""width:200px"">&nbsp;<button onClick=""singer.value='未知'"" class=button>未知</button>&nbsp;<button onClick=""singer.value='网络歌手'"" class=button>网络歌手</button></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:200px""></td></tr>"& vbCrLf
response.write"<tr class=bg height=""25""><td>&nbsp;歌曲分类："
st_classify("St_musicclass")
response.write"</td></tr><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=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传图片：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=musicpic""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr height=""25"" class=bg><td>&nbsp;试听地址：<input name=""url"" type=""text"" id=""url""  size=""20"" class=input style=""width:300px""></td></tr>"& vbCrLf
if userup="yes" then
response.write"<tr height=""28"" class=bg><td valign=center style=""text-align: left"">&nbsp;上传音乐：<iframe frameborder=0 width=265 height=22 scrolling=no src=""upload.asp?action=music""></iframe></td></tr>"& vbCrLf
end if
response.write"<tr class=bg height=""25""><td>&nbsp;播放类型：<select name=player class=input style=""width:120px""><option value=""media"">media格式</option><option value=""real"">real格式</option></select></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=""music"" 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 pic()
if userpic="no" then
response.write"<script>alert('对不起！管理员屏蔽了发布图片功能！！');history.go(-1);</script>"
response.end
end if%>