📄 admin_web.asp
字号:
<!--#include file="mdb.asp"-->
<%Admin="web"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/FORMAT.asp"-->
<HTML>
<HEAD>
<TITLE>Hxcms管理中心—酷站管理</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey))>
<%
'****************************************************
' Hxcms 7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
else
if request.form("MM_insert") then
if request.form("action")="newcscat" then
dim cscatname
cscatname=trim(replace(request.form("cscat_name"),"'",""))
if cscatname="" then
Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
response.end
end if
conn.Execute ("Insert Into cscat(cscat_name) Values('"&cscatname&"')")
response.redirect "admin_web.asp?action=cscat"
'================hx66.com.cn===============
elseif request.form("action")="newcs" then
dim cscatid,csname,csurl,cspic,csdesc,csisbest,tjuser
cscatid=request.form("cscatid")
csname=trim(replace(request.form("name"),"'",""))
csurl=trim(replace(request.form("url"),"'",""))
cspic=trim(replace(request.form("pic"),"'",""))
csdesc=trim(replace(request.form("desc"),"'",""))
csisbest=request.form("isbest")
tjuser=trim(replace(request.form("tjuser"),"'",""))
if csname="" then
Response.Write("<script language=javascript>alert('你必须填写酷站名称！');history.back(1);</script>")
response.end
end if
if not isInteger(cscatid) then
Response.Write("<script language=javascript>alert('你必须选择酷站所属分类！');history.back(1);</script>")
response.end
end if
if csurl="" then
Response.Write("<script language=javascript>alert('你必须填写酷站地址！');history.back(1);</script>")
response.end
end if
if cspic="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的图片地址！');history.back(1);</script>")
response.end
end if
if csdesc="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的简要说明！');history.back(1);</script>")
response.end
end if
if tjuser="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的录入人名！');history.back(1);</script>")
response.end
end if
conn.execute ("Insert Into coolsites(cscat_id,cs_name,cs_pic,cs_url,cs_desc,isbest,tjuser) Values("&cscatid&",'"&csname&"','"&cspic&"','"&csurl&"','"&csdesc&"',"&clng(csisbest)&",'"&tjuser&"')")
conn.execute("update allcount set coolsitescount = coolsitescount + 1")
response.redirect "admin_web.asp?action=sites"
'================hx66.com.cn===============
elseif request.form("action")="editcs" then
if request.Form("id")="" then
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
response.end
else
if not isInteger(request.form("id")) then
Response.Write("<script language=javascript>alert('非法的酷站id参数。');history.back(1);</script>")
response.end
end if
end if
cscatid=request.form("cscatid")
csname=trim(replace(request.form("name"),"'",""))
csurl=trim(replace(request.form("url"),"'",""))
cspic=trim(replace(request.form("pic"),"'",""))
csdesc=trim(replace(request.form("desc"),"'",""))
csisbest=request.form("isbest")
tjuser=trim(replace(request.form("tjuser"),"'",""))
if csname="" then
Response.Write("<script language=javascript>alert('你必须填写酷站名称！');history.back(1);</script>")
response.end
end if
if not isInteger(cscatid) then
Response.Write("<script language=javascript>alert('你必须选择酷站所属分类！');history.back(1);</script>")
response.end
end if
if csurl="" then
Response.Write("<script language=javascript>alert('你必须填写酷站地址！');history.back(1);</script>")
response.end
end if
if cspic="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的图片地址！');history.back(1);</script>")
response.end
end if
if csdesc="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的简要说明！');history.back(1);</script>")
response.end
end if
if tjuser="" then
Response.Write("<script language=javascript>alert('你必须填写酷站的录入人名！');history.back(1);</script>")
response.end
end if
conn.execute ("UPDATE coolsites SET cscat_id="&clng(cscatid)&",cs_name='"&csname&"',cs_pic='"&cspic&"',cs_url='"&csurl&"',cs_desc='"&csdesc&"',isbest="&clng(csisbest)&",tjuser='"&tjuser&"' where cs_id="&clng(request.form("id"))&"")
if cint(csisbest)=1 then
conn.execute ("UPDATE [user] SET points = points + "&bestpoints&" where username='"&tjuser&"'")
end if
response.redirect "admin_web.asp?action=sites"
'================hx66.com.cn===============
elseif request.form("action")="delcs" then
if request.Form("id")="" then
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
response.End
else
if not isInteger(request.form("id")) then
Response.Write("<script language=javascript>alert('非法的酷站id参数。');history.back(1);</script>")
response.End
end if
end if
Conn.Execute "DELETE * FROM coolsites WHERE cs_id="&clng(request.form("id"))
conn.execute("update allcount set coolsitescount=coolsitescount-1")
response.redirect "admin_web.asp?action=sites"
'================hx66.com.cn===============
elseif request.form("action")="editcscat" then
if request.Form("id")="" then
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
response.End
else
if not isInteger(request.form("id")) then
Response.Write("<script language=javascript>alert('非法的酷站分类id参数。');history.back(1);</script>")
response.End
end if
end if
cscatname=trim(replace(request.form("cscat_name"),"'",""))
if cscatname="" then
Response.Write("<script language=javascript>alert('你必须填写分类名称！');history.back(1);</script>")
response.end
end if
conn.Execute ("Update cscat Set cscat_name='"&cscatname&"' where cscat_id="&cint(request.form("id"))&"")
response.redirect "admin_web.asp?action=cscat"
'================hx66.com.cn===============
elseif request.form("action")="delcscat" then
if request.Form("id")="" then
Response.Write("<script language=javascript>alert('你必须指定操作的对象！');history.back(1);</script>")
response.end
else
if not isInteger(request.form("id")) then
Response.Write("<script language=javascript>alert('非法的酷站分类id参数。');history.back(1);</script>")
response.end
end if
end if
Conn.Execute "DELETE * FROM cscat WHERE cscat_id="&clng(request.form("id"))
Conn.Execute "DELETE * FROM coolsites WHERE cscat_id="&clng(request.form("id"))
response.redirect "admin_web.asp?action=cscat"
end if
end if
'================hx66.com.cn===============
if request.querystring("action")="cscat" then
sql="select * from cscat order by cscat_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr class=Hxcmsss>
<td colspan="3">酷站分类管理</font></td>
</tr>
<tr class=Hxcmsqs align="center">
<td width="10%">编号</td>
<td width="70%">分类名称</td>
<td width="20%">操作</td>
</tr>
<%do while not rs.eof%>
<tr class=Hxcmsds>
<td align="center"><%=rs("cscat_id")%> </td>
<td><%=rs("cscat_name")%></td>
<td align="center"><a href="admin_web.asp?id=<%=rs("cscat_id")%>&action=editcscat">编辑</a>
<a href="admin_web.asp?id=<%=rs("cscat_id")%>&action=delcscat">删除</a> <a href="showcs.asp?cscat_id=<%=rs("cscat_id")%>" target="_blank">查看</a></td>
</tr>
<%rs.movenext
loop
if rs.bof and rs.eof then
Response.Write("<tr class=Hxcms align=center><td colspan=3>当前没有酷站分类！</td></tr>")
end if
rs.close
set rs=nothing
Response.Write("</table>")
end if
'================hx66.com.cn===============
if request.querystring("action")="newcscat" then%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>新增酷站分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称-
<input type="text" name="cscat_name" size="40" class="textarea">
</td>
</tr>
<tr class=Hxcmsqs>
<td align="center">
<input type="submit" name="Submit" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
</td>
</tr>
<input type="hidden" name="action" value="newcscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
'================hx66.com.cn===============
if request.QueryString("action")="editcscat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的酷站分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from cscat where cscat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse"><form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>修改酷站分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称-
<input name="cscat_name" type="text" class="textarea" id="cscat_name" size="40" value="<%=rs("cscat_name")%>">
</td>
</tr>
<tr class=Hxcmsqs>
<td align="center"> <input name="Submit" type="submit" class="button" id="Submit" value="确定修改">
<input name="Reset" type="reset" class="button" id="Reset" value="清空重填"> </td>
</tr>
<input type="hidden" name="id" value="<%=rs("cscat_id")%>">
<input type="hidden" name="action" value="editcscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%
rs.close
set rs=nothing
end if
'================hx66.com.cn===============
if request.QueryString("action")="delcscat" then
if request.querystring("id")="" then
Response.Write("<script language=javascript>alert('请指定操作的对象！');history.back(1);</script>")
response.end
else
if not isinteger(request.querystring("id")) then
Response.Write("<script language=javascript>alert('非法的酷站分类ID参数！');history.back(1);</script>")
response.end
end if
end if
sql="select * from cscat where cscat_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr class=Hxcmsss>
<td>删除酷站分类</font></td>
</tr>
<tr class=Hxcmsds>
<td>分类名称- <%=rs("cscat_name")%>
</td>
</tr>
<tr class=Hxcmsqs>
<td align="center">
<input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("cscat_id")%>">
<input type="hidden" name="action" value="delcscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%
rs.close
set rs=nothing
end if
'================hx66.com.cn===============
if request.QueryString("action")="checkpass" then
sql="select * from coolsites where cs_id="&clng(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
rs("passed")=0
rs.update
tjuser=rs("tjuser")
rs.close
set rs=nothing
conn.execute ("UPDATE [user] SET points = points + "&fbpoints&" where username='"&tjuser&"'")
response.redirect Request.ServerVariables("http_referer")
end if
if request.form("operation")="DEL" then
num=request.form("cs_id").Count
for i=1 to num
conn.execute("delete from coolsites where cs_id="&request.form("cs_id")(i))
next
end if
'================hx66.com.cn===============
if request.querystring("action")="sites" then
Response.Write("<table align=""center"" width=""98%"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=Hxcmsbk style=""border-collapse: collapse"">")
Dim CurPage,Url_Add
Url_Add="?action=sites&"
If Request.QueryString("Page")<>"" Then
Curpage=Request.QueryString("Page")
If IsInteger(Curpage)=False OR Curpage<0 Then Curpage=1
Else
Curpage=1
End If
if request.querystring("cscat_id")<>"" then
cscat_id=cint(request.querystring("cscat_id"))
sql="select * from coolsites where cscat_id="&cscat_id&" order by cs_id desc"
Url_Add=Url_Add&"cscat_id="&cscat_id&"&"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -