开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Admin_Soft.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：15k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Admin_Soft.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <%
  4. If Not CheckAdmin("SoftList") Then
  5.     Server.Transfer("showerr.asp")
  6.     Response.End
  7. End If
  8. '=====================================================================
  9. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  10. '=====================================================================
  11. ' 程序名称：蓝宇网络发布系统
  12. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  13. ' 文件名称：Admin_Soft.asp
  14. ' 更新日期：2007-6-5
  15. '=====================================================================
  16. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  17. ' 程序开发：蓝宇,╲、随心゛
  18. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  19. '=====================================================================
  20. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  21. '=====================================================================
  22. Dim sel,act
  23. titlename="下载管理"
  24. Admin_header
  25. %>
  26. <SCRIPT language=JavaScript>
  27. function check(){
  28. if(document.form1.title.value=="")
  29. {
  30. alert("软件名称不能为空！");
  31. document.form1.title.focus();
  32. return false;
  33. }
  34. if(document.form1.url.value=="")
  35. {
  36. alert("软件下载地址不能为空！");
  37. document.form1.url.focus();
  38. return false;
  39. }
  40. if(document.form1.Content.value=="")
  41. {
  42. alert("软件介绍不能为空！");
  43. document.form1.Content.focus();
  44. return false;
  45. }
  46. }
  47. </SCRIPT>
  48. <%
  49. if request.QueryString("guiqi")="wgdel" then'=============批量删除
  50. dim delsel
  51. sel=tee5.CheckStr(request.form("sel"))
  52. if sel="" then
  53. response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
  54. call CloseConn()
  55. response.end
  56. end if
  57. set rs = server.createobject("adodb.recordset")
  58. sel=split(sel,",")
  59. for i= 0 to ubound(sel)
  60. sql="delete * from Gq_soft where id="&sel(i)
  61. conn.execute sql
  62. next
  63. set rs=nothing
  64. conn.close
  65. set conn=nothing
  66. response.redirect request.ServerVariables("HTTP_REFERER")
  67. end if
  68. if request.QueryString("guiqi")="ltop" then'=============批量固顶
  69. dim ltopsel
  70. sel=tee5.CheckStr(request.form("sel"))
  71. if sel="" then
  72. response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
  73. call CloseConn()
  74. response.end
  75. end if
  76. set rs = server.createobject("adodb.recordset")
  77. sel=split(sel,",")
  78. for i= 0 to ubound(sel)
  79. sql="select * from Gq_soft where id="&sel(i)
  80. rs.open sql,conn,1,3
  81. if rs.bof and rs.eof then
  82. rs.close
  83. else
  84. rs("top")=True
  85. rs.update
  86. rs.close
  87. end if
  88. next
  90. set rs=nothing
  91. conn.close
  92. set conn=nothing
  93. response.redirect request.ServerVariables("HTTP_REFERER")
  94. end if
  95. if request.QueryString("guiqi")="jtop" then'=============批量解固
  96. sel=tee5.CheckStr(request.form("sel"))
  97. if sel="" then
  98. response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
  99. call CloseConn()
  100. response.end
  101. end if
  102. set rs = server.createobject("adodb.recordset")
  103. sel=split(sel,",")
  104. for i= 0 to ubound(sel)
  105. sql="select * from Gq_soft where id="&sel(i)
  106. rs.open sql,conn,1,3
  107. if rs.bof and rs.eof then
  108. rs.close
  109. else
  110. rs("top")=False
  111. rs.update
  112. rs.close
  113. end if
  114. next
  116. set rs=nothing
  117. conn.close
  118. set conn=nothing
  119. response.redirect request.ServerVariables("HTTP_REFERER")
  120. end if
  121. if request.QueryString("guiqi")="top" then
  122. dim wgid,wgact
  123. id=tee5.CheckStr(request("id"))
  124. act=tee5.CheckStr(request("act"))
  125. if id="" then
  126. response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
  127. call CloseConn()
  128. response.end
  129. end if
  131. set rs = server.createobject("adodb.recordset")
  132. sql="select * from Gq_soft where id="&id
  133. rs.open sql,conn,1,3
  134. if rs.bof and rs.eof then
  135. rs.close
  136. response.write "<script>alert('无此记录');history.back()</script>"
  137. else
  138. select case act
  139. case "top"
  140. rs("top")=True
  141. case "utop"
  142. rs("top")=False
  143. end select
  144. rs.update
  145. rs.close
  146. end if
  148. set rs=nothing
  149. conn.close
  150. set conn=nothing
  151. response.redirect request.ServerVariables("HTTP_REFERER")
  152. end if
  153. if request.QueryString("guiqi")="add" then
  154. dim options
  156. set rs = server.CreateObject("adodb.recordset")
  158. select case trim(request.form("options"))
  159. case "add"
  160. call add()
  161. case "edit"
  162. call edit()
  163. case "del"
  164. call del()
  165. end select
  166. if trim(request("options"))="del" then
  167. call del()
  168. end if
  169. call CloseConn()
  170. sub add()
  171. dim wgtype,title,url,Content,wgtime
  172. wgtype=tee5.CheckStr(trim(request.Form("wgtype")))
  173. title=tee5.CheckStr(trim(request.Form("title")))
  174. url=tee5.CheckStr(trim(request.Form("url")))
  175. Content=tee5.CheckStr(request.Form("Content"))
  176. wgtime=trim(request.Form("wgtime"))
  177. if title="" or Content="" then
  178. response.write "<script>alert('名称和介绍不能为空，请重新填写');history.back()</script>"
  179.                 call CloseConn()
  180. response.end
  181. end if
  182. if wgtime="" then
  183. wgtime=now()
  184. end if
  185. sql="select * from Gq_soft where title='"&title&"'"
  186. rs.open sql,conn,1,1
  187. if rs.eof and rs.bof then
  188. rs.close
  189. sql="select * from Gq_soft"
  190. rs.open sql,conn,1,3
  191. rs.AddNew
  192. rs("wgtype") = wgtype
  193. rs("title") = title
  194. rs("url") = url
  195. rs("content") = content
  196. rs("wgtime") = wgtime
  197. rs("top") = 0
  198. rs.Update
  199. rs.Close
  200. response.Redirect "admin_soft.asp"
  201. else
  202. rs.close
  203. response.write "<script>alert('当前提交的软件已经存在n请不要重复提交信息');history.back()</script>"
  204. end if
  205. end sub
  207. sub edit()
  208. set rs = server.CreateObject("adodb.recordset")
  209. dim title,content,id,wgtype,url,hits,wgtime
  210. id=trim(request.form("id"))
  211. if id="" or (not isnumeric(id)) then
  212. response.write "<script>alert('参数不正确！！！');history.back()</script>"
  213. response.end
  214. end if
  215. wgtype=tee5.CheckStr(trim(request.Form("wgtype")))
  216. title=tee5.CheckStr(trim(request.Form("title")))
  217. url=tee5.CheckStr(trim(request.Form("url")))
  218. content=tee5.CheckStr(request.form("content"))
  219. hits=request.form("hits")
  220. wgtime=request.form("wgtime")
  221. if title="" or content="" then
  222. response.write "<script>alert('名称和介绍不能为空，请重新填写');history.back()</script>"
  223.                 call CloseConn()
  224. response.end
  225. end if
  226. if wgtime="" then
  227. wgtime=now()
  228. end if
  229. sql="select * from Gq_soft where id="&id
  230. rs.open sql,conn,1,1
  231. if rs.eof and rs.bof then
  232. rs.close
  233. response.write "<script>alert('数据不存在！');history.back()</script>"
  234. else
  235. rs.close
  236. rs.open sql,conn,1,3
  237. rs("wgtype") = wgtype
  238. rs("title") = title
  239. rs("url") = url
  240. rs("content") = content
  241. rs("wgtime") = wgtime
  242. rs("hits") = hits
  243. rs.Update
  244. rs.Close
  245. response.Redirect "admin_soft.asp"
  246. end if
  247. end sub
  249. sub del()
  250. set rs = server.CreateObject("adodb.recordset")
  251. on error resume next
  252. dim id,sql
  253. id=trim(request("id"))
  254. if id="" or (not isnumeric(id)) then
  255. response.write "<script>alert('参数不正确！！！');history.back()</script>"
  256.                call CloseConn()
  257. response.end
  258. end if
  259. sql="delete * from Gq_soft where id="&id
  260. conn.execute sql
  261. if err.Number<>0 then
  262. err.clear
  263. call closeconn()
  264. response.write "<script>alert('数据库操作失败! ');history.back()"
  265. else
  266. finished
  267. call closeconn()
  268. response.Redirect "admin_soft.asp"
  269. end if
  270. end sub
  271. end if
  272. %>
  273. <%
  274. if not isempty(request("page")) then
  275. currentPage=cint(request("page"))
  276. else
  277. currentPage=1
  278. end if
  279. set rs = server.createobject("adodb.recordset")
  280. %>
  282. <script language=javascript>
  283. function ConfirmDel()
  284. {
  285.    if(confirm("确定要删除此软件吗？n删除后不可恢复哦！"))
  286.      return true;
  287.    else
  288.      return false;
  289. }
  290. </script>
  291. <script>
  292. function chkid()
  293. {
  294. document.formguiqi.action="?guiqi=wgdel";
  295. document.formguiqi.submit()
  296. }
  297. </script>
  298. <script>
  299. function chktopid()
  300. {
  301. document.formguiqi.action="?guiqi=jtop";
  302. document.formguiqi.submit()
  303. }
  304. </script>
  305. <table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
  306. <tr> 
  307. <th>软件管理操作</th>
  308. </tr>
  309. <tr>
  310. <td class=tablerow1><b>管理选项：</b><a href="admin_soft.asp">所有软件</a> | <a href="admin_soft.asp?action=add">发布软件</a></td>
  311. </tr>
  312. </table>
  313. <br>
  314. <%if request.querystring("action")="" then
  315. Dim tablestyle
  316. Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
  317. maxperpage = AdminPage
  318. totalrec = 0
  319. Pcount = 1
  320. CurrentPage = tee5.ChkNumeric(Request("page"))
  321. If CurrentPage = 0 Then CurrentPage = 1
  322. Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
  323. %>
  324. <table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
  325. <form method=post name=formguiqi action=?guiqi=ltop>
  326. <tr align="center">
  327. <th width="4%">选择</th>
  328. <th width="10%">所属游戏</th>
  329. <th width="*">软件名称</th>
  330. <th width="17%">发布时间</th>
  331. <th width="12%">固顶状态</th>
  332. <th width="8%">人气</th>
  333. <th width="18%">操作</th>
  334. </tr>
  335. <% 
  336. sql="select * from Gq_soft order by wgtime desc" 
  337. rs.open sql,conn,1,1 
  338. if rs.eof and rs.bof then 
  339. response.write "<tr><td align='center' class=tablerow1 colspan='7'>当前没有任何软件！</td></tr>" 
  340. else
  341. totalrec = Rs.RecordCount
  342. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  343. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  344. If CurrentPage < 1 Then CurrentPage = 1
  345. If CurrentPage > Pcount Then CurrentPage = Pcount
  346. Rs.PageSize = maxperpage
  347. Rs.AbsolutePage = CurrentPage
  348. i = 0
  349. Do While Not Rs.EOF And i < maxperpage
  350. If Not Response.IsClientConnected Then ResponseEnd
  351. %>
  352.     <tr>
  353. <td align="center" class=tablerow1><input type='checkbox' name="sel" value="<%=rs("id")%>"></td>
  354. <td align="center" class=tablerow1><%=rs("wgtype")%></td>
  355. <td class=tablerow1><a href="admin_soft.asp?action=edit&id=<%=rs("id")%>" title="<%=rs("title")%>"><%=left(rs("title"),20)%></a></td>
  356. <td align="center" class=tablerow1><%=rs("wgtime")%></td>
  357. <td align="center" class=tablerow1><%if rs("top")=True then response.write "<font color=#0000FF>固顶中</font>" else response.write "<font color=#CCCCCC>未固顶</font>" end if%></td>
  358. <td align="center" class=tablerow1><%=rs("hits")%></td>
  359. <td align="center" class=tablerow1><%if rs("top")=false then response.write "<a href=?id="&rs("id")&"&act=top&guiqi=top>固顶</a>" else response.write "<a href=?id="&rs("id")&"&act=utop&guiqi=top><font color=red>解固</font></a>" end if%> ‖ <a href=admin_soft.asp?action=edit&id=<%=rs("id")%>><font color="#008000">编辑</font></a> ‖ <a href="admin_soft.asp?id=<%=rs("id")%>&options=del&guiqi=add"  onClick="return ConfirmDel();">删除</a></td>
  360. </tr>
  361. <%
  362. Rs.movenext
  363. i = i + 1
  364. If i >= maxperpage Then Exit Do
  365. Loop
  366. End If
  367. Rs.Close:Set Rs = Nothing
  368. %>
  369. <tr>
  370. <td class=tablerow1 colspan="8"><B>操作选项:<B> <input class=Button type=button value="全选" onClick="CheckAll(this.form)"><input class=Button type=button value='撤消' onClick="CheckCel(this.form)"><input class=Button type=button value='反选' onClick="CheckSel(this.form)"> 
  371. <input class=Button type=submit value=批量固顶> <input class=Button type=button value=批量解固 onclick=chktopid()> <input class=Button type=button value=批量删除 onclick=chkid()>
  372. </td>
  373. </tr>
  374. </form>
  375. <tr>
  376. <td <%=RightClass%> colspan="8"><%tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","下载管理"%></td>
  377. </tr>
  378. </table>
  379. <%
  380. end if
  381. if request.querystring("action")="add" then%>
  382. <table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
  383. <FORM name=form1 onsubmit="return check()" action=admin_soft.asp?guiqi=add method=post language="javascript">
  384. <tr> 
  385. <th colspan="2">软件管理－－添加软件</th>
  386. </tr>
  387. <tr>
  388. <td width="12%" align="right" class="TableRow1">所属游戏：</td>
  389. <td class="TableRow1"><INPUT name=wgtype id="wgtype" size="75" maxLength=50></td>
  390. </tr>
  391. <tr>
  392. <td width="12%" align="right" class="TableRow1">软件名称：</td>
  393. <td class="TableRow1"><INPUT name=title id="title" size="75" maxLength=50></td>
  394. </tr>
  395. <tr>
  396. <td width="12%" align="right" class="TableRow1">下载地址：</td>
  397. <td class="TableRow1"><INPUT name=url id="url" size="75" maxLength=50></td>
  398. </tr>
  399. <tr>
  400. <td width="12%" align="right" class="TableRow1">软件介绍：</td>
  401. <td class="TableRow1"><TEXTAREA id=Content name=Content rows=10 cols=75></TEXTAREA></td>
  402. </tr>
  403. <tr>
  404. <td width="12%" align="right" class="TableRow1">发布时间：</td>
  405. <td class="TableRow1"><INPUT name=wgtime id="wgtime" value="<%=now()%>" maxLength=20> 默认为系统当前时间</td>
  406. </tr>
  407. <tr>
  408. <td class="TableRow1" colspan="2" height="30" align="center"><input name="options" type="hidden" id="options"><INPUT class=Button name=addwg type=submit id="addwg" onclick="form.options.value='add'" value=" 确 定 ">&nbsp;&nbsp;&nbsp;&nbsp;<INPUT class=Button type=reset value=" 清 除 " name=cmdcancel></td>
  409. </tr>
  410. </FORM>
  411. </table>
  412. <%end if%> 
  413. <%
  414. if request.querystring("action")="edit" then
  415. dim id
  416. id=tee5.CheckStr(request("id"))
  417. if id="" or (not isnumeric(id)) then
  418. response.write "<script>alert('参数不正确！！！');window.close()</script>"
  419. response.end
  420. end if
  421. set rs = server.createobject("adodb.recordset")
  422. sql="SELECT * FROM Gq_soft where id="&id
  423. rs.open sql,conn,1,1 
  424. if rs.bof and rs.eof then 
  425. rs.close
  426. response.write "<script>alert('无此数据！！！');window.close()</script>"
  427. response.end
  428. else
  429. end if
  430. %>
  431. <table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
  432. <FORM name=form1 onsubmit="return check()" action=admin_soft.asp?guiqi=add method=post language="javascript">
  433. <tr> 
  434. <th colspan="2">软件管理－－修改软件</th>
  435. </tr>
  436. <tr>
  437. <td width="12%" align="right" class="TableRow1">所属游戏：</td>
  438. <td class="TableRow1"><INPUT name=wgtype id="wgtype" class="textarea" value="<%=rs("wgtype")%>" size="75" maxLength=50></td>
  439. </tr>
  440. <tr>
  441. <td width="12%" align="right" class="TableRow1">软件名称：</td>
  442. <td class="TableRow1"><INPUT name=title id="title" class="textarea" value="<%=rs("title")%>" size="75" maxLength=50></td>
  443. </tr>
  444. <tr>
  445. <td width="12%" align="right" class="TableRow1">下载地址：</td>
  446. <td class="TableRow1"><INPUT name=url id="url" class="textarea" value="<%=rs("url")%>" size="75" maxLength=50></td>
  447. </tr>
  448. <tr>
  449. <td width="12%" align="right" class="TableRow1">软件介绍：</td>
  450. <td class="TableRow1"><TEXTAREA id=Content name=Content rows=10 cols=75><%=rs("content")%></TEXTAREA></td>
  451. </tr>
  452. <tr>
  453. <td width="12%" align="right" class="TableRow1">下载次数：</td>
  454. <td class="TableRow1"><INPUT name=hits id="hits" class="textarea" value="<%=rs("hits")%>" maxLength=20></td>
  455. </tr>
  456. <tr>
  457. <td width="12%" align="right" class="TableRow1">发布时间：</td>
  458. <td class="TableRow1"><INPUT name=wgtime id="wgtime" class="textarea" value="<%=rs("wgtime")%>" maxLength=20> 时间格式为“年-月-日 时:分:秒”，如：<FONT color=#0000ff>2003-5-12 12:32:47</FONT></td>
  459. </tr>
  460. <tr>
  461. <td class="TableRow1" colspan="2" height="30" align="center">
  462. <input name="id" type="hidden" id="id" value="<%=rs("id")%>">
  463. <input name="options" type="hidden" id="options">
  464. <INPUT class=Button name=addwg type=submit id="addwg" onclick="form.options.value='edit'" value=" 确 定 ">&nbsp;&nbsp;&nbsp;&nbsp;<INPUT class=Button type=reset value=" 清 除 " name=cmdcancel></td>
  465. </tr>
  466. </FORM>
  467. </table>
  468. <%end if
  469. Admin_footer
  470. CloseConn
  471. %>