📄 user_put.asp
字号:
rs.update
rs.close
call user_msg("发表")
exit sub
end if
call form_first()
%>
<table bgcolor="#ffffff" borderColor="#f0f0f0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
<tr>
<td width="17%">标题名称</td>
<td><input type="text" name="name" size="65" class="input">
</td>
</tr>
<tr>
<td>笑话作者</td>
<td><input name="artname" type="text" id="writer" size="20" class="input"> <button onClick="writer.value='佚名'" class="input">佚名</button> <button onClick="writer.value='网络'" class="input">网络</button> <button onClick="writer.value='<%=Hx66_name%>'" class="input"><%=Hx66_name%></button>
</td>
</tr>
<tr>
<td>笑话来源</td>
<td> <input name="aahome" type="text" id="writer1" size="28" class="input"> <button onClick="writer1.value='转摘'" class="input">转摘</button> <button onClick="writer1.value='原创'" class="input">原创</button></button>
</td>
</tr>
<tr>
<td>所属分类</td>
<td><select name="c_id" class="input">
<%
sql="select * from joke_cat where sid=0"
set rs1=conn.execute(sql)
do while not rs1.eof
response.write "<optgroup label='"&rs1("cat_name")&"'>"
sql="select * from joke_cat where sid="&rs1("cat_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%>
<option value="<%=rs2("cat_id")%>">├ <%=rs2("cat_name")%></option>
<%
rs2.movenext
loop
rs1.movenext
loop
rs1.close
set rs1=nothing%>
</select> 关键字
<input type="text" name="akeyword" size="18" class="input"> 多个用 | 隔开。</td>
</tr>
<tr bgcolor="#FFFFFF">
<td colspan="2" align="center"> <script language="Javascript1.2"><!-- // load htmlarea
_editor_url = "Editor/"; // URL to htmlarea files
var win_ie_ver = parseFloat(navigator.appVersion.split("MSIE")[1]);
if (navigator.userAgent.indexOf('Mac') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Windows CE') >= 0) { win_ie_ver = 0; }
if (navigator.userAgent.indexOf('Opera') >= 0) { win_ie_ver = 0; }
if (win_ie_ver >= 5.5) {
document.write('<scr' + 'ipt src="' +_editor_url+ 'editor.js"');
document.write(' language="Javascript1.2"></scr' + 'ipt>');
} else { document.write('<scr'+'ipt>function editor_generate() { return false; }</scr'+'ipt>'); }
// --></script>
<textarea name="content" style="width:540; height:250" id="content"></textarea>
<script language="javascript1.2">
editor_generate('content');
</script>
</td>
</tr>
<tr>
<td>阅读等级</td>
<td><select name="dGrade" id="Grade" class="input">
<option value="0">游客可读</option>
<option value="1">普通用户</option>
<option value="2">VIP 用户</option>
</select> 阅读所需会员积分数：<input type="text" name="dpoints" size="5" value="0" class="input"> *正整数数字</td>
</tr>
<tr>
<td>提交会员</td>
<td><input type="hidden" name="tjuser" value="<%=Hx66_name%>"><%=Hx66_name%></td>
</tr>
<tr>
<td>笑话图片</td>
<td><input type="text" name="pic" size="65" class="input"></td>
</tr>
<tr>
<td>图片上传</td>
<td><IFRAME name=upload_frame src="user_upload.asp?action=pic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
</tr>
<tr align="center">
<td colspan="2" height="30">
<input type="submit" name="Submit" value="确定新增" class="input">
<input type="reset" name="Reset" value="清空重填" class="input"></td>
</tr>
</table>
<%
end sub
'=================================================
'过程名：put_down
'作 用：显示发表软件
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
sub put_down()
dim name,size,mode,roof,commend,csid,demo,home,url,desc,pic,dGrade,dpoints,username,uppic,upurl
if chk() then
name=CheckStr(code_admin("name",1,50))
size=CheckStr(code_admin("size",1,10))
mode=CheckStr(code_admin("mode",1,10))
roof=CheckStr(code_admin("roof",1,30))
commend=CheckStr(code_admin("commend",1,50))
csid=trim(request.form("c_id"))
demo=CheckStr(code_admin("demo",1,100))
home=CheckStr(code_admin("home",1,100))
url=CheckStr(code_admin("url",1,100))
desc=CheckStr(code_admin("desc",1,5000))
pic=CheckStr(code_admin("pic",1,100))
dGrade=trim(request.form("dGrade"))
dpoints=trim(request.form("dpoints"))
if not isInteger(csid) then
call admin_error("请选择 "&tit_fir&"类型 ！")
exit sub
end if
if name="" or url="" or desc="" then
call admin_error(tit_fir&"名称、简介和地址 不能为空！")
exit sub
end if
username=code_admin("tjuser",1,20)
set rs=server.CreateObject("adodb.recordset")
rs.open "select soft_name,soft_url1 from soft where soft_name='"&name&"' or soft_url1='"&url&"'",conn,1,1
if not rs.eof and not rs.bof then
response.write"<SCRIPT language=JavaScript>alert('错误提示：\n\n① 此资源已提交过，正等待审核通过，请不要重复提交!\n\n② 您提交的资源已经存在，感谢你的支持!');"
response.write"this.top.location.href='User_put.asp?action=down';</SCRIPT>"
Response.End
rs.close
end if
sql="select * from soft"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs.addnew
rs("tjuser")=username
rs("soft_name")=name
rs("soft_size")=size
rs("soft_mode")=mode
rs("soft_roof")=roof
rs("soft_commend")=commend
rs("soft_demo")=demo
rs("soft_home")=home
rs("soft_showpic")=pic
rs("soft_desc")=desc
rs("soft_url1")=url
if csid<>"" then
Set rsclass = Server.CreateObject("ADODB.Recordset")
sqlclass="SELECT * FROM d_class where class_id="&csid
rsclass.OPEN sqlclass,Conn,1,1
rs("soft_classid")=rsclass("class_id")
rs("soft_classname")=rsclass("class_name")
rs("soft_catid")=rsclass("cat_id")
set rscat = Server.CreateObject("ADODB.Recordset")
sqlcat="select cat_name from d_cat where cat_id="&rsclass("cat_id")
rscat.open sqlcat,conn,1,1
rs("soft_catname")=rscat("cat_name")
rscat.close
rsclass.close
set rscat=nothing
set rsclass=nothing
end if
rs("Grade")=cint(dGrade)
if cint(dGrade)=0 then
rs("points")=0
else
rs("points")=cint(dpoints)
end if
if fbpass<>"yes" or (Hx66_Grade=1 and vippass<>"yes") then
rs("passed")=0
sql="UPDATE [user] SET points = points + "&fbpoints&" where username='"&username&"'"
conn.execute (sql)
else
rs("passed")=1
end if
uppic=right(pic,len(pic)-7)
upurl=right(url,len(url)-7)
conn.execute("update [upload] set webtype='软件',totable=1,url='"&name&"' where (filename='"&uppic&"' or filename='"&upurl&"') and totable=0")
rs.update
rs.close
call user_msg("发布")
exit sub
end if
call form_first()
%>
<table bgcolor="#ffffff" borderColor="#f0f0f0" Border="1" Cellspacing="0" Cellpadding="5" width="100%" align="Center" style="border-collapse: collapse">
<tr>
<td width="17%">软件名称</td>
<td><input type="text" name="name" size="65" class="input"></td>
</tr>
<tr>
<td>软件大小</td>
<td><input type="text" name="size" size="20" class="input"></td>
</tr>
<tr>
<td>授权方式</td>
<td><select name="mode" class="input">
<option value="免费软件" selected>免费软件</option>
<option value="共享软件">共享软件</option>
<option value="汉化软件">汉化软件</option>
<option value="破解软件">破解软件</option>
</select></td>
</tr>
<tr>
<td>应用平台</td>
<td><select name="roof" class="input">
<option value="Win9x/Me">Win9x/Me</option>
<option value="IIS环境" selected>IIS环境</option>
<option value="WinNT/2000/XP">WinNT/2000/XP</option>
<option value="Win9x/Me/NT/2000/XP">Win9x/Me/NT/2000/XP</option>
</select> </td>
</tr>
<tr>
<td>推荐程度</td>
<td><select name="commend" class="input">
<option value="5">5stars</option>
<option value="4">4stars</option>
<option value="3" selected>3stars</option>
<option value="2">2stars</option>
<option value="1">1stars</option>
<option value="0">0stars</option>
</select></td>
</tr>
<tr>
<td>所属分类</td>
<td><select name="c_id" class="input">
<%dim catname,classname,catid,classid
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT * FROM d_cat"
rs.OPEN sql,Conn,1,1
if not (rs.eof and rs.bof) then
rs.movefirst
do while not rs.eof
sql="select * from d_class where cat_id="&rs("cat_id")
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.OPEN sql,Conn,1,1
if not (rs2.eof and rs2.bof) then
do while not rs2.eof
catid=rs("cat_id")
classid=rs2("class_id")
catname=rs("cat_name")
classname=rs2("class_name")
%>
<option value='<%=rs2("class_id")%>'><%=rs2("class_name")%>（<%=rs("cat_name")%>）</option>
<%
rs2.movenext
loop
end if
rs.movenext
rs2.close
set rs2=nothing
loop
end if
%></select></td>
</tr>
<tr>
<td>演示地址</td>
<td><input type="text" name="demo" size="65" class="input"></td>
</tr>
<tr>
<td>主页地址</td>
<td><input type="text" name="home" size="65" value="<%=weburl%>" class="input"></td>
</tr>
<tr>
<td>程序简介</td>
<td><textarea name="desc" cols="63" rows="6" class="input">没有</textarea></td>
</tr>
<tr>
<td>下载地址</td>
<td><input type="text" name="url" size="65" class="input"></td>
</tr>
<tr>
<td>下载权限</td>
<td><select name="dGrade" id="dGrade" class="input">
<option value="0">游客下载</option>
<option value="1">普通用户</option>
<option value="2">VIP 用户</option>
</select> 下载所需会员积分数：<input type="text" name="dpoints" size="5" value="0" class="input"> *正整数数字. </td>
</tr>
<tr>
<td>提交会员</td>
<td><input type="hidden" name="tjuser" value="<%=Hx66_name%>"><%=Hx66_name%></td>
</tr>
<tr>
<td>软件图片</td>
<td><input type="text" name="pic" size="40" value="" class="input"> <a href='user_upload.asp?action=pic' target=upload_frame>上传图片</a> <a href='user_upload.asp?action=url' target=upload_frame>上传软件</a></td>
</tr>
<tr>
<td>文件上传</td>
<td><IFRAME name=upload_frame src="user_upload.asp?action=pic" frameBorder=0 width="100%" scrolling=no height=25></IFRAME></td>
</tr>
<tr>
<td colspan="2" align="center" height="30">
<input type="submit" name="Submit" value="确定新增" class="input">
<input type="reset" name="Reset" value="清空重填" class="input"></td>
</tr>
</table>
<%
end sub
'=================================================
'过程名：put_news
'作 用：显示发表新闻
'参 数：无
'Web: www.ynsky.com.cn
'=================================================
sub put_news()
dim name,artname,aahome,csid,akeyword,pic,content,username,uppic
if chk() then
name=CheckStr(code_admin("name",1,50))
artname=CheckStr(code_admin("artname",1,50))
aahome=CheckStr(code_admin("aahome",1,50))
csid=trim(request.form("c_id"))
akeyword=CheckStr(code_admin("akeyword",1,50))
pic=CheckStr(code_admin("pic",1,100))
content=code_admin("content",1,100000)
if not isInteger(csid) then
call admin_error("请选择 "&tit_fir&"类型 ！")
exit sub
end if
if name="" or artname="" or aahome="" or content="" then
call admin_error(tit_fir&"标题、作者、来源和内容 不能为空！")
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -