📄 adminjs_body.asp
字号:
<%sub adminjs_body()
%>
<HTML><HEAD><TITLE>管理中心www.vqqq.com网页制作，设计，数据库，源码下载,黑客程序,系统资源,网页特效, 粗口舞曲, 中文舞曲, 街舞录象,MTV, 音乐, FLASH, 教程, 舞曲, 交友，社区,聊天,照片,酷站,连接,留言,统计,日记,文章,开发工具,免费,软件,合作,黑客,代码,ASP,PHP,主机,交流,免费留言本,免费日记,免费投票,免费下载,免费查询,IP查询,手机查询,身份证查询,网吧,电影,DJ，传奇世界外挂，传奇世界挂机外挂，传奇世界私服</title>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="inc/djcss" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) background=inc/dj_bg.gif>
<%if request.querystring("action")="jscat" then
sql="select * from script_type order by id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td colspan="3" class="diaryhead">
<font color="#333333">特效分类管理</font></td>
</tr>
<tr bgcolor="#FFFFFF" align="center">
<td width="10%" class="chinese">编号</td>
<td width="70%" class="chinese">分类名称</td>
<td width="20%" class="chinese">操作</td>
</tr>
<%do while not rs.eof%>
<tr bgcolor="#FFFFFF">
<td align="center" class="chinese"><%=rs("id")%> </td>
<td class="chinese"><a href="play.asp?jscat_id=<%=rs("id")%>" target="_blank"><%=rs("type")%></a> </td>
<td align="center" class="chinese"><a href="admin_js.asp?id=<%=rs("id")%>&action=editjscat">edit</a>
<a href="admin_js.asp?id=<%=rs("id")%>&action=deljscat">del</a> <a href="../js.asp?jscat_id=<%=rs("id")%>" target="_blank">view</a></td>
</tr>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
<tr bgcolor="#FFFFFF" align="center">
<td colspan="3" class="chinese">当前没有分类！</td>
</tr>
<%rs.close
set rs=nothing
end if%>
</table>
<br>
<%end if
if request.querystring("action")="newjscat" then%>
<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr>
<td class="diaryhead">
<font color="#333333">新增分类</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">分类名称-
<input type="text" name="jscat_name" size="40" class="textarea">
</td>
</tr>
<tr>
<td bgcolor="#F5F5F5" height="30" 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="newjscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="editjscat" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的分类ID参数！"
call diserror()
response.end
end if
end if
sql="select * from script_type where id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr>
<td class="diaryhead">
<font color="#333333">修改分类</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">分类名称-
<input name="jscat_name" type="text" class="textarea" id="jscat_name" size="40" value="<%=rs("type")%>">
</td>
</tr>
<tr>
<td bgcolor="#F5F5F5" height="30" 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("id")%>">
<input type="hidden" name="action" value="editjscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.QueryString("action")="deljscat" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
call diserror()
response.end
else
if not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的酷站分类ID参数！"
call diserror()
response.end
end if
end if
sql="select * from script_type where id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="">
<tr>
<td class="diaryhead">
<font color="#333333">删除分类</font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">分类名称- <%=rs("type")%>
</td>
</tr>
<tr>
<td bgcolor="#F5F5F5" height="30" align="center">
<input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
</td>
</tr>
<input type="hidden" name="id" value="<%=rs("id")%>">
<input type="hidden" name="action" value="deljscat">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%end if
if request.querystring("action")="js" then
sql="select * from script_body order by id desc"
if request.querystring("jscat_id")<>"" then
sql="select * from script_body where type="&cint(request.querystring("jscat_id"))&" order by id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
totaljs=rs.recordcount
%>
<table width="98%" border="0" cellspacing="1" cellpadding="0" class="chinese">
<form name="form3" method="post" action="">
<tr>
<td align="right">
<select name="go" onChange='window.location=form.go.options[form.go.selectedIndex].value'>
<option value="">选择显示方式</option>
<option value="admin_js.asp?action=js">显示所有特效</option>
<%sql="select * from script_type"
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof%>
<option value="admin_js.asp?action=js&jscat_id=<%=rs2("id")%>"><%=rs2("type")%></option>
<%rs2.movenext
loop
if rs2.bof and rs2.eof then%><option value="">当前没有分类</option>
<%end if
rs2.close
set rs2=nothing%>
</select>
</td>
</tr>
</form>
</table>
<%
if not rs.eof then
rs.movefirst
rs.pagesize=jsperpage
if trim(request("page"))<>"" then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
end if
else
currentpage=1
end if
totaljs=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*jsperpage<totaljs then
rs.move(currentpage-1)*jsperpage
dim bookmark
bookmark=rs.bookmark
end if
end if
if (totaljs mod jsperpage)=0 then
totalpages=totaljs\jsperpage
else
totalpages=totaljs\jsperpage+1
end if
i=0
do while not rs.eof and i<jsperpage
%>
<table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
<tr>
<td width="*" class="chinese">特效名称：<%=rs("title")%></td><td width="100">
<a href="admin_js.asp?id=<%=rs("id")%>&action=editjs">edit</a>
<a href="admin_js.asp?id=<%=rs("id")%>&action=deljs">del</a></td>
</tr>
</table>
<%
i=i+1
rs.movenext
loop
else
if rs.eof and rs.bof then
%>
<table width="98%" border="0" cellspacing="0" cellpadding="10" align="center">
<tr>
<td bgcolor="#FFFFFF" colspan="2" height="22" align="center" class="chinese">当前没有特效！</td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -