admin_down.asp

本系统是一套开源WEB的网站管理系统

    <td width="130" align="center" valign="middle">报 错 次 数</td>
    <td width="120" align="center" valign="middle">操 作 选 项</td>
  </tr>
<form name="userform" action="?action=operate" method="post">
<%dim sql,rs
sql="select id,down_title,down_date,down_error from ms_down where down_error>0 order by down_error,down_date"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.Open sql,connstr,1,1
if not rs.bof and not rs.eof then
nextpage=pagetitle(rs,20,"admin_down.asp?action=errorList&","个出错软件")
lineNo=1
do while not rs.eof and lineNo<=rs.pagesize
%>
  <tr class="td_bgcolor"  onmouseover="mouseOver(this)" onmouseout="mouseOut(this)"> 
    <td height="22" align="center" valign="middle"><input type="checkbox" name="id" value="<%=rs(0)%>"></td>
    <td valign="middle"><a href="../showdown.asp?id=<%=rs(0)%>" title="发布时间：<%=rs(2)%>"><%=rs(1)%></a></td>
    <td align="center" valign="middle"><%=rs(3)%></td>
    <td align="center" valign="middle"><a href="admin_down.asp?action=maosin_editdown&id=<%=rs(0)%>">编辑</a> &nbsp;<a href="?action=operate&operateOption=repair&id=<%=rs(0)%>">修复</a></td>
  </tr>
<%	lineNo=lineNo+1
	rs.MoveNext
loop%>
  <tr valign="middle" class="td_bottomT"><td height="22" colspan="4"> <input type="checkbox" name="checkall" id="checkall" value="checkbox" onclick="checkalldele(this.form)"><label for="checkall">全选</label> <input type="hidden" name="operateOption"><input type="submit" name="Submit" onClick="this.form.operateOption.value='repair'" value="修复错误"> <input type="submit" name="Submit2" value="删除" onClick="javascript:{if(confirm('您确定要执行删除此选项吗?')){this.form.operateOption.value='deldown';return true;}return false;}"></td></tr></form>
  <tr valign="middle"> <td height="22" colspan="4" class="td_titleB"><%response.write(nextpage)%></td></tr>
<%else%>
<tr><td align="center" valign="middle" class="td_bgcolor" height="40" colspan="4">恭喜恭喜，没有出错软件！</td></tr>
<%end if%>
</table>
<script type="text/javascript">
function checkalldele(obj){
	var len=obj.elements.length;
	for(var i=0;i<len-4;i++){
		obj.elements(i).checked=obj.checkall.checked;
	}
}
</script>
<%
End Sub
Sub saveDown()
dim operate,id,title,titlecolor,downclass,keyword,downsize,accmode,language,star,approof,demo,guanfang,imgurl,popedom,jifen,money,content,upnum,ynum,isgood,istop,allowpl,pass,sendOutPoint,postMember
operate=lcase(request.querystring("operate"))
if operate="maosin_mdf" then
	if getPopedom("downAdmin")=false then
		popedomMsg
		exit sub
	end if
elseif operate="add" then
	if getPopedom("isAddDown")=false then
		popedomMsg
		exit sub
	end if
end if
id=request.form("id")
title=Request.form("title")'标题
titlecolor=Request.form("titlecolor")'标题颜色
downclass=Request.form("downclass")'所属分类
keyword=replace(replace(Request.form("keyword"),"'","''"),"|",",")'关键词
downsize=Request.form("downsize")'上传大小
accmode=Request.form("accmode")'授权方式
language=Request.form("language")'语言界面
star=Request.form("star")'星级评级
approof=Request.form("approof")
demo=request.form("demo")'演示地址
guanfang=request.form("guanfang")
imgurl=Request.form("imgurl")'图片地址
content=Request.form("content")'内容
popedom=Request.form("popedom")'查看权限
upnum=request.form("upnum")
ynum=request.form("ynum")'修改
sendOutPoint=Request.form("sendOutPoint")
select case cstr(popedom)
	case "0"
		jifen=0
		money=0
	case "1","2"
		jifen=Request.form("jifen")
		money=Request.form("money")
end select
if Request.form("isgood")="" then
	isgood=false
else
	isgood=true
end if
if Request.form("istop")="" then
	istop=false
else
	istop=true
end if
if Request.form("allowPl")="" then
	allowpl=false
else
	allowpl=true
end if
if Request.form("pass")="" then
	pass=false
else
	pass=true
end if
if operate="maosin_mdf" then
	if ynum<>"" then
		dim i,yurl
		for i=0 to ynum
			if request.form("delurl"&i)="" then
					yurl=yurl&request.form("yurl"&i)&"$:"&request.form("yurltitle"&i)&"|"
			else
				yurl=yurl
			end if
		next
	end if
	if yurl<>"" then
		if len(yurl)=InStrRev(yurl,"|") then
		yurl=left(yurl,InStrRev(yurl,"|")-1)
		end if
		yurl=replace(yurl,"|$:","")
		if len(yurl)=2 then
		yurl=""
		end if
	end if
	if upnum<>"" and isNumeric(upnum) then
	dim urltitle,aurl,urlstr
		for i=1 to upnum
			urlstr=request.form("url"&i)
			urltitle=request.form("urltitle"&i)
			if urlstr<>"" then
				if urltitle="" then
						aurl=aurl&urlstr&"$:下载地址|"
				else
						aurl=aurl&urlstr&"$:"&urltitle&"|"
				end if
			end if
		next
	else
		aurl=request.form("url1")&"$:"&request.form("urltitle1")
	end if
	if yurl<>"" then
		url=yurl&"|"&aurl
	else
		url=aurl
	end if
	if url<>"" then
		if len(url)=inStrRev(url,"|") then
		url=left(url,InStrRev(url,"|")-1)
		end if
		url= replace(url,"|$:","")
		if len(url)=2 then
		url=""
		end if	
	end if
else
	if upnum<>"" and isNumeric(upnum) then
		for i=1 to upnum
			urlstr=request.form("url"&i)
			urltitle=request.form("urltitle"&i)
			if urlstr<>"" then
				if urltitle="" then
					url=url&urlstr&"$:下载地址|"
				else
					url=url&urlstr&"$:"&urltitle&"|"
				end if
			end if
		next
	else
		url=request.form("url1")&"$:"&request.form("urltitle1")
	end if
	if url<>"" then
		if len(url)=inStrRev(url,"|") then
			url=left(url,InStrRev(url,"|")-1)
		end if
	end if
end if
dim errmsg
if chkIsOut=false then
	showmsg "<font color=""#ff0000"">茂盛系统返回如下信息：</font><br><br>对不起，本站不允许从外部提交数据","系统出错信息"
	exit sub
end if
if trim(title)="" then
	errmsg="<li>请您输入下载标题</li>"
end if
if trim(keyword)="" then
	errmsg=errmsg&"<li>请您输入关键词</li>"
end if
if downclass="" then
	errmsg=errmsg&"<li>请您选择新闻所属分类</li>"
else
	clStr=split(downclass,",")
	if ubound(clStr)=1 then
		catid=clStr(0)
		classId=clStr(1)
	else
		errmsg=errmsg&"<li>您输入的分类ID不正确</li>"
	end if
end if
if trim(content)="" then
	errmsg=errmsg&"<li>请您输入简介内容</li>"
end if
if isInteger(jifen)=false then
	errmsg=errmsg&"<li>您输入的"&pointName&"值不正确,"&pointName&"值应为数字型整数</li>"
end if
if isInteger(money)=false then
	errmsg=errmsg&"<li>您输入的"&moneyName&"值不正确,"&moneyName&"值应为数字型整数</li>"
end if
if trim(url)="" then
	errmsg=errmsg&"<li>请您填上至少一个下载地址</li>"
end if
if errmsg<>"" then
	adminShowMsg "出错信息","<font color=""#ff0000"">系统发生如下错误:</font><br>"&errmsg
	errmsg=""
	exit sub
end if
dim sql
if operate=lcase("maosin_mdf") and isInteger(id)=true then
	if not isNumeric(sendOutPoint) then
		adminShowMsg "出错信息","奖励"&pointName&"应为数字型参数"
		exit sub
	end if
	if pass=true then
		sendOutPoint=csng(sendOutPoint)
	else
		sendOutPoint=0
	end if
	sql="select * from ms_down where id="&id
else
	sql="select * from ms_down where (id is null)"
	sendOutPoint=0
end if
Set urs=Server.CreateObject("ADODB.RecordSet")
urs.open sql,connstr,1,3
if operate<>lcase("maosin_mdf") then
urs.AddNew
end if
urs("catID")=catID
urs("classID")=classID
urs("down_title")=chkFormStr(title)
urs("titlecolor")=chkColor(titlecolor)
urs("down_keyword")=chkFormStr(replace(keyword,"|",","))
urs("down_size")=ChkFormStr(downsize)
urs("down_mode")=ChkFormStr(accmode)
urs("down_roof")=ChkFormStr(approof)
urs("language")=ChkFormStr(language)
urs("down_commend")=ChkFormStr(star)
urs("down_guanfang")=ChkFormStr(guanfang)
urs("down_demo")=ChkFormStr(demo)
urs("imgurl")=ChkFormStr(imgurl)
urs("down_url")=url
if operate<>lcase("maosin_mdf") then
	urs("down_date")=now()
	urs("post_member")=adminInfo(1)
end if
urs("down_content")=content
urs("pass")=pass
urs("down_good")=isgood
urs("down_istop")=istop
urs("allow_pl")=allowpl
urs("popedom")=popedom
urs("jifen")=jifen
urs("money")=money
urs("popedom")=popedom
urs("sendOutPoint")=urs("sendOutPoint")+sendOutPoint
postMember=urs("post_member")
urs.Update
urs.close
set urs=nothing
if operate=lcase("maosin_mdf") then
	if pass=true then
		conn.execute("update ms_user set user_point=user_point+"&sendOutPoint&" where user_name='"&postMember&"'")
	end if
	adminShowMsg "操作成功信息","<li>恭喜恭喜，您提交的数据已成功保存</li><br><span id=seNum>3</span><a href=javascript：showtime></a>秒钟后系统将自动返回下载管理页......</b><meta http-equiv=refresh content=3;url=admin_down.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(3);</script>"
else
	adminShowMsg "操作成功信息","<li>恭喜您,提交已成功保存</li><br><span id=seNum>3</span><a href=javascript：showtime></a>秒钟后系统将自动返回下载管理页......</b><meta http-equiv=refresh content=3;url=admin_down.asp><SCRIPT>valignbottom()</SCRIPT><script>function showtime(secs){seNum.innerText=secs;if(--secs>0)setTimeout('showtime('+secs+')',1000);}showtime(3);</script>"
end if