index.asp

安全中心整站系统是一个网络安全类整站系统。由七个模块组成

if type_5=2 then title_5="文档作品" else:end if
if type_5=3 then title_5="代码作品":end if

title_re=mid(SqlStr_1(rsA("re_name")),1,re_word)
if mid(SqlStr_1(rsA("re_name")),re_word+1,1)<>"" then title_red="......" else title_red="":end if
%>
<img src='images/view.gif'>&nbsp;<a href='index.asp?module=releases&act=view&type=<%=rsA("typeid")%>&id=<%=rsA("id")%>' title='完整标题: <%=rsA("re_name")%>

添加作者: <%=rsA("re_user")%>
代码分类: <%=title_5%>
添加日期: <%=rsA("re_time00")%>
总共点击: <%=rsA("re_clicks")%>次'><%=title_re&title_red%></a></p>
<%rsA.movenext
loop
else:end if
%>
</fieldset>
<%else:end if%>

		</div>
		</div>
		
	</td>

  <td class='main'>
  
<table width='95%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#004E98'>
 <tr>
  <td bgcolor='#FFFFFF' valign='top'>
<%'=================Title=================
if act="" or act="search" then%>  
<table border='0' cellspacing='2' cellpadding='2' width='100%'>
<tr align='center' background='images/line.gif'>
<%if module="articles" then%>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>文章标题</td>
<td nowrap background='images/line.gif'>提交者</td>
<td nowrap background='images/line.gif'>文章类别</td>
<td nowrap background='images/line.gif'>文章来源</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>	
<%else:end if
if module="tools" then%>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>软件标题</td>
<td nowrap background='images/line.gif'>提交者</td>
<td nowrap background='images/line.gif'>软件类别</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>
<%else:end if
if module="holes" then%>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>漏洞标题</td>
<td nowrap background='images/line.gif'>整理</td>
<td nowrap background='images/line.gif'>漏洞类别</td>
<td nowrap background='images/line.gif'>错误类型</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>
<%else:end if	
if module="exploits" then%>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>代码标题</td>
<td nowrap background='images/line.gif'>提交者</td>
<td nowrap background='images/line.gif'>代码类别</td>
<td nowrap background='images/line.gif'>属性</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>
<%else:end if
if module="releases" then%>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>作品标题</td>
<td nowrap background='images/line.gif'>提交者</td>
<td nowrap background='images/line.gif'>作品类别</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>
<%else:end if%>	
<%if module="studio" then%>
<div class=2emborder><p>关于<%=sh_name%>工作室</p></div>
<%else:end if%>	
<%if module="about" then%>
<div class=2emborder><p>关于<%=sh_name%></p></div>
<%else:end if%>
</tr>	
<%
pageid=request("page")
if typeid<>"" then type_sql="and typeid="&typeid else type_sql="":end if
if pageid=0 then pageid=1 else:end if
if module<>"about" and module<>"forums" and module<>"studio" then
sql="select * from "&front0&module&" where 1=1 "&type_sql&" order by id desc"
set rs=conn.execute(sql)
else:end if
if typeid<>0 then sql_sort=" and typeid="&typeid else:end if


'======================================================Articles======================================================
if module="articles" then
Set connP = Server.CreateObject("ADODB.Connection")
connP.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
set rsP = Server.CreateObject("ADODB.RecordSet")
rsP.PageSize = 20
if act="search" then
keyword=request.form("keyword")
searchtype=request.form("searchtype")
title_sql=" and ar_title like '%"&keyword&"%'"
if searchtype<>0 then
type_sql=" and typeid="&searchtype
else:end if 
else:end if
sql="select * from "&front0&module&" where 1=1 "&type_sql&title_sql&" order by id desc"
rsP.Open sql, connP, 1
if rsP.eof then
on error resume next
response.write "对不起，没有您要查找的内容"		  
else
rsP.AbsolutePage = pageid
end if

	For J = 1 To rsP.PageSize
		If rsP.EOF Then Exit For

type_1=rsP("typeid")
if type_1=1 then title_1="安全技术" else:end if
if type_1=2 then title_1="漏洞分析" else:end if
if type_1=3 then title_1="工具介绍" else:end if
if type_1=4 then title_1="系统知识" else:end if
if type_1=5 then title_1="网络知识" else:end if
if type_1=6 then title_1="安全防护" else:end if
if type_1=7 then title_1="原创天空" else:end if
if type_1=8 then title_1="本站公告":end if

title_ar=mid(SqlStr_1(rsP("ar_title")),1,ar_word)
if mid(SqlStr_1(rsP("ar_title")),ar_word+1,1)<>"" then title_ard="......" else title_ard="":end if
%>
</td>
</tr>

<tr>
<td width='100%' align='left'>
<a href='index.asp?module=<%=module%>&act=view&type=<%=rsP("typeid")%>&id=<%=rsP("id")%>' title='完整标题: <%=rsP("ar_title")%>

所在分类: <%=title_1%>
添加作者: <%=rsP("ar_user")%>
文章来源: <%=rsP("ar_from")%>
添加日期: <%=rsP("ar_time00")%>
当天点击: 27 次
总共点击: 12617 次

点击查看
'><%=title_ar&title_ard%></a></td>
<td nowrap align='left'><%=rsP("ar_user")%></td>
<td nowrap align='left'><a href='index.asp?module=<%=module%>&type=<%=rsP("typeid")%>'><%=title_1%></a></td>
<td nowrap align='left'><%=rsP("ar_from")%></td>
<td nowrap align='center'><%=rsP("ar_time00")%></td>
<td nowrap align='right'>
<%clicks=rsP("ar_clicks")
if clicks=0 then clicks="0"%><%=clicks%></td>
</tr>
<%rsP.movenext
Next
%>

</table>
</td>
</tr>
</table>
<p><center>
<%rsP.movefirst
do while not rsP.eof
i=i+1
	if i=20 then
		ii=ii+1
		i=0
	end if
rsP.movenext
loop
if i>0 then ii=ii+1 else:end if
if ii<>0 then i_all=ii else i_all="0":end if
%>
<p>Page: &nbsp;<%=pageid%> &nbsp; of &nbsp; <%=i_all%></p>
<%rsP.movefirst
i_0=ii+1
do while ii<>0
i_1=i_0-ii
if typeid<>0 then type_page="&type="&typeid else:end if
%>
[&nbsp;<a class=xh href="index.asp?module=<%=module%><%=type_page%>&page=<%=i_1%>"><font size="2"><%=i_1%></font></a>&nbsp;]
<%ii=ii-1%>
<%
loop
%>
<%else:end if
else:end if
else:end if
'=====================Content=====================
if module="articles" and act="view" then
id_0=request("id")
sql="select * from "&front0&module&" where id="&id_0
set rs=conn.execute(sql)

if rs.eof then
on error resume next
else:end if

clicks=rs("ar_clicks")
clicks=clicks+1
sql_clicks="update "&front0&"articles set ar_clicks="&clicks&" where id="&id_0
conn.execute(sql_clicks)

type_1=rs("typeid")
if type_1=1 then title_1="安全技术" else:end if
if type_1=2 then title_1="漏洞分析" else:end if
if type_1=3 then title_1="工具介绍" else:end if
if type_1=4 then title_1="系统知识" else:end if
if type_1=5 then title_1="网络知识" else:end if
if type_1=6 then title_1="安全防护" else:end if
if type_1=7 then title_1="原创天空" else:end if
if type_1=8 then title_1="本站公告":end if
%>  
<table border='0' cellspacing='2' cellpadding='2' width='100%'>
<tr align='center' background='images/line.gif'>
<td nowrap background='images/line.gif'>文章类别</td>
<td nowrap background='images/line.gif'>文章来源</td>
<td width='100%' heigth='30' background='images/line.gif' class='view2'>文章标题</td>
<td nowrap background='images/line.gif'>提交者</td>
<td nowrap background='images/line.gif'>发布日期</td>
<td nowrap background='images/line.gif'>点击数</td>
</tr>
<tr align='center' background='images/line.gif'>
<td nowrap background='images/line.gif'>
<%if rs.eof then
response.write "对不起，没有您要查找的内容"
else:end if
%>
<%=title_1%></td>
<td nowrap background='images/line.gif'><%=rs("ar_from")%></td>
<td width='100%' heigth='30' background='images/line.gif' class='view2'><%=rs("ar_title")%></td>
<td nowrap background='images/line.gif'><%=rs("ar_user")%></td>
<td nowrap background='images/line.gif'><%=rs("ar_time00")%></td>
<td nowrap background='images/line.gif'><%=rs("ar_clicks")%></td>
</tr>
<table><tr>
<td width='2%'></td>
<td align='left'><%=rs("ar_content0")%></td>
<td width='2%'></td>
</tr></table>
<tr>
<td align='center' nowrap background='images/line.gif' width='100%'><p><a href="javascript:history.back(1);">返回上一页</a></p></td>
</tr>
</table>
</td>
</tr>
</table>
<p><center>
<%
else:end if
'=====================Addnew=====================
if module="articles" and act="addnew" then%>
<table border='0' cellspacing='2' cellpadding='2' width='100%'>
<tr align='center' background='images/line.gif'>
<td nowrap background='images/line.gif'>添加文章</td>

<form method="POST" action="index.asp?module=articles&act=addnew_finish">
<table border="0" width="100%" id="table1">
<tr>
<td width="168" align="right">文章标题：</td>
<td><input type="text" name="title" size="65"></td>
</tr>
<tr>
<td width="168" align="right">文章类别：</td>
<td><select size="1" name="type">
<option value="8">本站公告</option>
<option value="7">原创天空</option>
<option value="1">安全技术</option>
<option value="2">漏洞分析</option>
<option value="3">工具介绍</option>
<option value="4">系统知识</option>
<option value="5">网络知识</option>
<option value="6">安全防护</option>
</select></td>
</tr>
<tr>
<td width="168" align="right">文章来源：</td>
<td><input type="text" name="from" size="65"></td>
</tr>
<tr>
<td width="168" align="right">提交者：</td>
<td><input type="text" name="user" size="65"></td>
</tr>
<tr>
<td width="168" align="right" height="20">文章内容：</td>
<td rowspan="2"><textarea rows="21" name="content" cols="64"></textarea></td>
</tr>
<tr>
<td width="168" align="right" height="257">　</td>
</tr>
</table>
<p align="center"><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>

</tr>
</table>
</td>
</tr>
</table>
<p><center>
<%
else:end if
'=====================Finish=====================
if module<>"" and module<>"links" then
if act="up_date_finish" or act="del_" or act="addnew_finish" then
finish()
else:end if
else:end if%>
<%'=====================================================Tools=====================================================
if module="tools" then
if pageid=0 then pageid=1 else:end if

if act<>"view" then
Set connP = Server.CreateObject("ADODB.Connection")
connP.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath)
set rsP = Server.CreateObject("ADODB.RecordSet")
rsP.PageSize = 20
if act="search" then
keyword=request.form("keyword")
searchtype=request.form("searchtype")
title_sql=" and to_name like '%"&keyword&"%'"
if searchtype<>0 then
type_sql=" and typeid="&searchtype
else:end if 
else:end if
sql="select * from "&front0&module&" where 1=1 "&type_sql&title_sql&" order by id desc"
rsP.Open sql, connP, 1
if rsP.eof then
on error resume next
response.write "对不起，没有您要查找的内容"		  
else
rsP.AbsolutePage = pageid
end if

	For J = 1 To rsP.PageSize
		If rsP.EOF Then Exit For

type_2=rsP("typeid")
if type_2=1 then title_2="扫描探测" else:end if
if type_2=2 then title_2="攻击入侵" else:end if
if type_2=3 then title_2="木马后门" else:end if
if type_2=4 then title_2="嗅探工具" else:end if
if type_2=5 then title_2="网络工具" else:end if
if type_2=6 then title_2="破解工具" else:end if
if type_2=7 then title_2="系统工具" else:end if
if type_2=8 then title_2="编程工具" else:end if
if type_2=9 then title_2="安全防御" else:end if
if type_2=10 then title_2="安全补丁" else:end if
if type_2=11 then title_2="其他工具":end if