index.asp

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

type0_b2="--><b>"
href2="<!--"
else:end if
if type0=3 then 
type_b3=" <=</b>" 
type0_b3="--><b>"
href3="<!--"
else:end if
%>
<img src='images/sort.gif'>&nbsp;<%=href1%><a href='index.asp?module=<%=module%>&type=1'><%=type0_b1%><%=sort_1%><%=type_b1%></a><br>
<img src='images/sort.gif'>&nbsp;<%=href2%><a href='index.asp?module=<%=module%>&type=2'><%=type0_b2%><%=sort_2%><%=type_b2%></a><br>
<img src='images/sort.gif'>&nbsp;<%=href3%><a href='index.asp?module=<%=module%>&type=3'><%=type0_b3%><%=sort_3%><%=type_b3%></a><br>
<%else:end if
else:end if%>
<%'===============================Studio===============================
if module="studio" then
if group00="sadmin" then
sql="select * from "&front0&"member where me_group<>'core' order by me_member"
set rs=conn.execute(sql)

'=================UpdateMember=================
acct=request("acct")
if acct="up_member" then

if request.form("site")="" then
me_site="no_website"
else
me_site=request.form("site")
end if

if request.form("member")="" or request.form("email")="" or me_site="" then%>
<script>alert("请将每一项填写完整"); history.back(-1)</script>	 
<%nonull=1
else:end if

me_member=request.form("member")
me_email=request.form("email")
me_group=request.form("group")
sql_update="update "&front0&"member set me_member='"&me_member&"',me_email='"&me_email&"',me_site='"&me_site&"',me_group='"&me_group&"' where id="&id
if nonull<>1 then
conn.execute(sql_update)
else:end if 
else:end if 
'=================AddMember=================
if acct="add_finish" then

if request.form("site")="" then
me_site="no_website"
else
me_site=request.form("site")
end if

if request.form("member")="" or request.form("email")="" or me_site="" then%>
<script>alert("请将每一项填写完整"); history.back(-1)</script>	 
<%nonull=1
else:end if

me_member=request.form("member")
me_email=request.form("email")
me_group=request.form("group")
sql_update="insert into "&front0&"member(me_member,me_email,me_site,me_group) values('"&me_member&"','"&me_email&"','"&me_site&"','"&me_group&"')"
if nonull<>1 then
conn.execute(sql_update)
else:end if 
else:end if 
'=================Delete=================
if acct="del_" then
sql_del="delete * from "&front0&"member where id="&id
conn.execute(sql_del)
else:end if

'=================Normal=================
if acct="" or acct="up_member" then
do while not rs.eof
if rs("me_site")="no_website" then
website=""
else
website=rs("me_site")
end if%>
<p></p>
<form method="POST" action="index.asp?module=studio&acct=up_member&id=<%=rs("id")%>">
成员名：<input type="text" name="member" size="20" value="<%=rs("me_member")%>"><br>
信箱：<input type="text" name="email" size="20" value="<%=rs("me_email")%>"><br>
个人主页：<input type="text" name="site" size="20" value="<%=website%>"><br>
所在地：<input type="text" name="group" size="20" value="<%=rs("me_group")%>"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">&nbsp;&nbsp; <a href="index.asp?module=studio&acct=del_&id=<%=rs("id")%>"><font color=red>删除</font></a></p>
</form>
<hr>
<%rs.movenext
loop
else:end if

'=================Addnew=================
if acct="addmember" then%>
<form method="POST" action="index.asp?module=studio&acct=add_finish">
成员名：<input type="text" name="member" size="20"><br>
信箱：<input type="text" name="email" size="20"><br>
个人主页：<input type="text" name="site" size="20"><br>
所在地：<input type="text" name="group" size="20"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
<%else:end if

if acct="add_finish" or acct="del_" then
finish()
else:end if
else:end if
else:end if%>

<%'===============================About===============================
if module="about" then
if group00="sadmin" then
sql="select * from "&front0&"member where me_group='core' order by me_member"
set rs=conn.execute(sql)

'=================UpdateMember=================
acct=request("acct")
if acct="up_member" then

if request.form("site")="" then
me_site="no_website"
else
me_site=request.form("site")
end if

if request.form("member")="" or request.form("email")="" or me_site="" then%>
<script>alert("请将每一项填写完整"); history.back(-1)</script>	 
<%nonull=1
else:end if

me_member=request.form("member")
me_email=request.form("email")
sql_update="update "&front0&"member set me_member='"&me_member&"',me_email='"&me_email&"',me_site='"&me_site&"' where id="&id
if nonull<>1 then
conn.execute(sql_update)
else:end if 
else:end if 
'=================AddMember=================
if acct="add_finish" then

if request.form("site")="" then
me_site="no_website"
else
me_site=request.form("site")
end if

if request.form("member")="" or request.form("email")="" or me_site="" then%>
<script>alert("请将每一项填写完整"); history.back(-1)</script>	 
<%nonull=1
else:end if

me_member=request.form("member")
me_email=request.form("email")
sql_update="insert into "&front0&"member(me_member,me_email,me_site,me_group) values('"&me_member&"','"&me_email&"','"&me_site&"','core')"
if nonull<>1 then
conn.execute(sql_update)
else:end if 
else:end if 
'=================Delete=================
if acct="del_" then
sql_del="delete * from "&front0&"member where id="&id
conn.execute(sql_del)
else:end if

'=================Normal=================
if acct="" or acct="up_member" then
do while not rs.eof
if rs("me_site")="no_website" then
website=""
else
website=rs("me_site")
end if%>
<p></p>
<form method="POST" action="index.asp?module=about&acct=up_member&id=<%=rs("id")%>">
成员名：<input type="text" name="member" size="20" value="<%=rs("me_member")%>"><br>
信箱：<input type="text" name="email" size="20" value="<%=rs("me_email")%>"><br>
个人主页：<input type="text" name="site" size="20" value="<%=website%>"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2">&nbsp;&nbsp; <a href="index.asp?module=about&acct=del_&id=<%=rs("id")%>"><font color=red>删除</font></a></p>
</form>
<hr>
<%rs.movenext
loop
else:end if

'=================Addnew=================
if acct="addmember" then%>
<form method="POST" action="index.asp?module=about&acct=add_finish">
成员名：<input type="text" name="member" size="20"><br>
信箱：<input type="text" name="email" size="20"><br>
个人主页：<input type="text" name="site" size="20"><br>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
<%else:end if

if acct="add_finish" or acct="del_" then
finish()
else:end if
else:end if
else:end if%>
</font>
</fieldset>

<%if module<>"about" and module<>"studio" then%>
<fieldset class='main'>
<legend><strong>本类热门</strong></legend>
<p></p>
<p>
<%
if typeid<>"" then type_sql="and typeid="&typeid else type_sql="":end if
if module<>"about" and module<>"forums" and module<>"studio" then
if module="articletmp" then
sql="select * from "&front0&"articles where 1=1 "&type_sql&" order by "&mid("articles",1,2)&"_clicks desc"
else
sql="select * from "&front0&module&" where 1=1 "&type_sql&" order by "&mid(module,1,2)&"_clicks desc"
end if
set rsA=conn.execute(sql)
else:end if

'=================Hot of Articles=================
if module="articles" or module="articletmp" then
do while not rsA.eof and b<hot_size
b=b+1
type_1=rsA("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(rsA("ar_title")),1,ar_word)
if mid(SqlStr_1(rsA("ar_title")),ar_word+1,1)<>"" then title_ard="......" else title_ard="":end if
%>
<img src='images/view.gif'>&nbsp;<a href='index.asp?module=articles&act=view&type=<%=rsA("typeid")%>&id=<%=rsA("id")%>' title='完整标题: <%=rsA("ar_title")%>

添加作者: <%=rsA("ar_user")%>
文章分类: <%=title_1%>
添加日期: <%=rsA("ar_time00")%>
总共点击: <%=rsA("ar_clicks")%>次'><%=title_ar&title_ard%></a></p>
<%rsA.movenext
loop
else:end if
'=================Hot of Tools=================
if module="tools" then
if group00="sadmin" or group00="admin" then
do while not rsA.eof and b<hot_size
b=b+1
type_2=rsA("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

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

添加作者: <%=rsA("to_user")%>
软件分类: <%=title_2%>
添加日期: <%=rsA("to_time00")%>
总共点击: <%=rsA("to_clicks")%>次'><%=title_to&title_tod%></a></p>
<%rsA.movenext
loop
else:end if
else:end if
'=================Hot of Holes=================
if module="holes" then
do while not rsA.eof and b<hot_size
b=b+1
type_3=rsA("typeid")
if type_3=1 then title_3="远程进入" else:end if
if type_3=2 then title_3="权限提升" else:end if
if type_3=3 then title_3="拒绝服务":end if
if type_3=4 then title_3="脚本漏洞":end if
if type_3=5 then title_3="信息泄露":end if
if type_3=6 then title_3="其他类型":end if	  

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

添加作者: <%=rsA("ho_user")%>
漏洞分类: <%=title_3%>
添加日期: <%=rsA("ho_time00")%>
总共点击: <%=rsA("ho_clicks")%>次'><%=title_ho&title_hod%></a></p>
<%rsA.movenext
loop
else:end if
'=================Hot of exploits=================
if module="exploits" then
do while not rsA.eof and b<hot_size
b=b+1
type_4=rsA("typeid")
if type_4=1 then title_4="BSD" else:end if
if type_4=2 then title_4="Linux" else:end if
if type_4=3 then title_4="Windows":end if
if type_4=4 then title_4="Other":end if

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

添加作者: <%=rsA("ex_user")%>
代码分类: <%=title_4%>
添加日期: <%=rsA("ex_time00")%>
总共点击: <%=rsA("ex_clicks")%>次'><%=title_ex&title_exd%></a></p>
<%rsA.movenext
loop
else:end if
'=================Hot of Releases=================
if module="releases" then
if group00="sadmin" or group00="admin" then
do while not rsA.eof and b<hot_size
b=b+1
type_5=rsA("typeid")
if type_5=1 then title_5="软件作品" else:end if
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
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%