📄 index.asp

📁 安全中心整站系统是一个网络安全类整站系统。由七个模块组成
💻 ASP
📖 第 1 页 / 共 5 页
字号:
  <TBODY>
  <TR>
    <TD align=left width="100%"><IMG height=15 src="images/welcome.gif" 
      width=16 border=0>&nbsp; 欢迎 <%=user00%> 来到<%=sh_name%>管理页面！&nbsp; 您在 <%=group00%> 组中。
</TD>
</TR></TBODY></TABLE></DIV></DIV><br>
    <TD class=right>
      <DIV class=boxs>
      <DIV class=border>
      <P>项目留言管理</P></DIV>
      <DIV class=content>

      <FIELDSET class=main><LEGEND align="center"><STRONG>
	  <a href="index.asp?module=studio"><font color="#004E98">===============返回工作室界面管理===============</font></a></STRONG></LEGEND>
	  <table border="0" width="100%" id="table1">
		<tr>
			<td>
<p></p>
<%if act="view" then
strsql1="select * from "&front0&"studio where id="&id
set rs_v=conn.execute(strsql1)
%>
<table border='1' 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 heigth='30' background='images/line.gif' class='view2'>公司名称</td>
<td nowrap background='images/line.gif'>手机</td>
<td nowrap background='images/line.gif'>E-mail</td>
</tr>
<tr align='center' background='images/line.gif'>
<td nowrap background='images/line.gif'>
<%if rs_v.eof then
response.write "对不起，没有您要查找的内容"
else:end if
%>
<%=rs_v("st_address")%></td>
<td nowrap background='images/line.gif'><%=rs_v("st_tel")%></td>
<td heigth='30' background='images/line.gif' class='view2'><%=rs_v("st_com")%></td>
<td nowrap background='images/line.gif'><%=rs_v("st_mob")%></td>
<td nowrap background='images/line.gif'><%=rs_v("st_mail")%></td>
</tr>

<table border='0' width='100%'>
<tr>
<td width='2%'></td>
<td align=center><font color=blue><b>其他联系方式</b></font></td>
<td width='2%'></td>
</tr>
<tr>
<td width='2%'></td>
<td align='left'><%=rs_v("st_other")%><br><br></td>
<td width='2%'></td>
</tr>
</table>

<table border='0' width='100%'><tr>
<tr>
<td width='2%'></td>
<td align=center><font color=blue><b>项目留言</b></font></td>
<td width='2%'></td>
</tr>
<td width='2%'></td>
<td align='left'>
<%=rs_v("st_needs")%></td>
<td width='2%'></td>
</tr></table>
<tr>
<td align='center' nowrap width='100%'><p><a href="javascript:history.back(1);">返回上一页</a></p></td>
</tr>
</table>
<%else:end if%>
<%if act="" then

if rs_li.eof then
response.write "对不起，还没有项目留言"
else:end if

do while not rs_li.eof%>

<tr>
<td>项目号：<a href="index.asp?module=app_&act=view&id=<%=rs_li("id")%>">application_<%=rs_li("id")%></a></td><td>
公司名称：<a href="index.asp?module=app_&act=view&id=<%=rs_li("id")%>"><%=rs_li("st_com")%></td><td>电话：<%=rs_li("st_tel")%></td>
<td><a href="index.asp?module=app_&act=del_&id=<%=rs_li("id")%>"><font color=red>删除</font></a></td>
</tr>
<%rs_li.movenext
loop
else:end if%>
<%if act="del_" then
finish()
else:end if%>
<p></p></td>
		</tr>
		</table>
      </FIELDSET> 
</DIV></DIV></TD></TR></TBODY></TABLE>
<%else
aderror()
end if
else:end if%>

<%'========================================Settings========================================
if module="" or module="settings" then
strsql="select * from "&front0&"settings"
set sett=conn.execute(strsql)
strsql="select * from "&front1&"sc_opq_settings"
set setftp=cona.execute(strsql)
if module="" or module="settings" then
%>
<DIV class=2emboxs>
<DIV class=2emborder>
<P></P></DIV>
<DIV class=content>
<TABLE cellSpacing=0>
  <TBODY>
  <TR>
    <TD align=left width="100%"><IMG height=15 src="images/welcome.gif" 
      width=16 border=0>&nbsp; 欢迎 <%=user00%> 来到<%=sh_name%>管理页面！&nbsp; 您在 <%=group00%> 组中。 
</TD>
    <TD noWrap><IMG height=15 src="images/enter.gif" width=16 
      border=0>&nbsp;<a href="index.asp?module=logout">注销管理员</a> 
    </TD></TR></TBODY></TABLE></DIV></DIV><br>
<%else:end if
if group00="sadmin" then%>
   <TD class=right>
      <DIV class=boxs>
      <DIV class=border>
      <P>基本设置</P></DIV>
      <DIV class=content>

      <FIELDSET class=main><LEGEND align="center"><STRONG>
	  <font color="blue">以下面各项均支持HTML格式输入</font></STRONG></LEGEND>
	  <table border="0" width="100%" id="table1">
		<tr>
			<td>
<p></p>
<%if act="" then%>
<form method="POST" action="index.asp?module=settings&act=up_date">
<table border="0" width="100%" id="table1">
<tr>
<td width="50%">站点名称：<input type="text" name="sitename" size="20" value="<%=settings("se_sitename")%>">
<font color="#FF0000">*站点名称，显示在首页标题栏</font></td>
<td>英文名称 &nbsp; ：<input type="text" name="en_name" size="20" value="<%=settings("se_en_name")%>"> <font color="#FF0000">
*站点英文全称，显示在首页标题栏</font></td>
</tr>
<tr>
<td width="50%">站点简称：<input type="text" name="sh_name" size="20" value="<%=settings("se_sh_name")%>">
<font color="#FF0000">*尽量短的简称，在导航栏显示</font></td>
<td>站务E-mail：<input type="text" name="sendmail" size="20" value="<%=settings("se_sendmail")%>">&nbsp;<font color="#FF0000">*建议使用#代替@，显示在页面底端</font></td>
</tr>
<tr>
<td width="50%">网站域名：<input type="text" name="siteurl" size="20" value="<%=settings("se_siteurl")%>">
<font color="#FF0000">*网站当前使用的域名</font></td>
<td>站点备案号：<input type="text" name="beian" size="20" value="<%=settings("se_beian")%>"> <font color="#FF0000">
*在www.miibeian.gov.cn申请的备案号</font></td>
</tr>
<tr>
<td width="50%">版权信息：<input type="text" name="copy" size="20" value="<%=settings("se_copy")%>">
<font color="#FF0000">*例：Copyright &copy; 2005 xxx All Rights Reserved.</font></td>
<td>热门文章显示条数：<select size="1" name="hot_size">
<%ty=settings("se_hot_size")
if ty=1 then se1="selected" else:end if
if ty=2 then se2="selected" else:end if
if ty=3 then se3="selected" else:end if
if ty=4 then se4="selected" else:end if
if ty=5 then se5="selected" else:end if
if ty=6 then se6="selected" else:end if
if ty=7 then se7="selected" else:end if
if ty=8 then se8="selected" else:end if
if ty=9 then se9="selected" else:end if
if ty=10 then se10="selected" else:end if
if ty=11 then se11="selected" else:end if 
if ty=12 then se12="selected" else:end if 
%>
<option value="1" <%=se1%>>1</option>
<option value="2" <%=se2%>>2</option>
<option value="3" <%=se3%>>3</option>
<option value="4" <%=se4%>>4</option>
<option value="5" <%=se5%>>5</option>
<option value="6" <%=se6%>>6</option>
<option value="7" <%=se7%>>7</option>
<option value="8" <%=se8%>>8</option>
<option value="9" <%=se9%>>9</option>
<option value="10" <%=se10%>>10</option>
<option value="11" <%=se11%>>11</option>
<option value="12" <%=se12%>>12</option>
</select> <font color="#FF0000">*文章等项中热门分类显示的数目</font></td>
</tr>
<tr>
<td width="50%" colspan="2">后台连接FTP地址：<input type="text" name="ftpurl" size="28" value="<%=setftp("se_ftpurl")%>">
<font color="#FF0000">*填写需要上传工具的FTP目录,默认目录为：“网站根目录/downloads/”，例：ftp://scccn.com/downloads/</font></td>
</tr>
<tr>
<td width="50%">项目发布（<font color="#FF0000">*显示在首页左侧，支持HTML格式</font>）：<p>
<textarea rows="12" name="project" cols="52"><%=settings("se_project")%></textarea></td>
<td>在线交流（<font color="#FF0000">*显示在首页右侧，支持HTML格式</font>）：<p>
<textarea rows="12" name="chat" cols="58"><%=settings("se_chat")%></textarea></td>
</tr>
</table>
<p align=center><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form>
<%else:end if
if act="up_date" then
if request.form("sitename")="" or request.form("en_name")="" or request.form("sh_name")="" or request.form("sendmail")="" or request.form("siteurl")="" or request.form("beian")="" or request.form("copy")="" or request.form("hot_size")="" or request.form("ftpurl")="" then%>
<script>alert("请将每一项填写完整"); history.back(-1)</script>	 
<%nonull=1
else:end if 

se_sitename=sqlstr_3(request.form("sitename"))
se_en_name=sqlstr_3(request.form("en_name"))
se_sh_name=sqlstr_3(request.form("sh_name"))
se_sendmail=sqlstr_3(request.form("sendmail"))
se_siteurl=sqlstr_3(request.form("siteurl"))
se_beian=sqlstr_3(request.form("beian"))
se_copy=sqlstr_3(request.form("copy"))
se_hot_size=sqlstr_3(request.form("hot_size"))
se_ftpurl=sqlstr_3(request.form("ftpurl"))
se_project=sqlstr_3(request.form("project"))
se_chat=sqlstr_3(request.form("chat"))

sql_update="update "&front0&"settings set se_sitename='"&se_sitename&"',se_en_name='"&se_en_name&"',se_sh_name='"&se_sh_name&"',se_sendmail='"&se_sendmail&"',se_siteurl='"&se_siteurl&"',se_beian='"&se_beian&"',se_copy='"&se_copy&"',se_hot_size="&se_hot_size&",se_project='"&se_project&"',se_chat='"&se_chat&"'"
sql_update1="update "&front1&"sc_opq_settings set se_ftpurl='"&se_ftpurl&"'"
if nonull<>1 then
conn.execute(sql_update)
cona.execute(sql_update1)
else:end if
finish()
else:end if
%>
<p></p></td>
		</tr>
		</table>
      </FIELDSET> 
</DIV></DIV></TD></TR></TBODY></TABLE>
<%else:end if
if group00<>"sadmin" then
if module="settings" then aderror() else:end if
else:end if
else:end if%>

<%'========================================Links========================================
if module="" or module="links" then
strsql="select * from "&front0&"links order by id"
set rs_li=conn.execute(strsql)
if act="up_date_" or act="up_date_finish" then
strsql="select * from "&front0&"links where id="&id
set rs_up=conn.execute(strsql)
else:end if
if module="links" then%>
<DIV class=2emboxs>
<DIV class=2emborder>
<P></P></DIV>
<DIV class=content>
<TABLE cellSpacing=0>
  <TBODY>
  <TR>
    <TD align=left width="100%"><IMG height=15 src="images/welcome.gif" 
      width=16 border=0>&nbsp; 欢迎 <%=user00%> 来到<%=sh_name%>管理页面！&nbsp; 您在 <%=group00%> 组中。 
</TD>
    <TD noWrap><IMG height=16 src="images/irc.gif" width=16 
      border=0>&nbsp;在线交流 
      &nbsp;&nbsp;&nbsp;<IMG height=16 src="images/add.gif" width=16 
      border=0>&nbsp;发表文章 
      &nbsp;&nbsp;&nbsp;<IMG height=15 src="images/enter.gif" width=16 
      border=0>&nbsp;<a href="index.asp?module=logout">注销管理员</a> 
    </TD></TR></TBODY></TABLE></DIV></DIV><br>
<%else:end if
if group00="sadmin" or group00="admin" then%>
   <TD class=right>
      <DIV class=boxs>
      <DIV class=border>
      <P>友情连接</P></DIV>
      <DIV class=content>

      <FIELDSET class=main><LEGEND align="center"><STRONG>
	  <a href="index.asp?module=links&act=addnew"><font color="#004E98">===============新增友情连接===============</font></a></STRONG></LEGEND>
	  <table border="0" width="100%" id="table1">
		<tr>
			<td>
<p></p>
<%if act="" then

if rs_li.eof then
response.write "对不起，还没有友情链接，点击<a href='index.asp?module=links&act=addnew'><font color=red>这里</font></a>添加"
else:end if

do while not rs_li.eof%>

<tr>
<td>显示标题：<%=rs_li("li_name")%></td><td>注释：<%=rs_li("li_title")%></td><td>URL：<%=rs_li("li_url")%></td>
<td><a href="index.asp?module=links&act=up_date_&id=<%=rs_li("id")%>"><font color="#004E98">修改</font></a></td>
<td><a href="index.asp?module=links&act=del_&id=<%=rs_li("id")%>"><font color=red>删除</font></a></td>
</tr>
<%rs_li.movenext
loop
else:end if%>
<%if act="addnew" then%>
		</table>
<center>
<form method="POST" action="index.asp?module=links&act=addnew_finish">
<table border="0" width="100%">
<tr>
<td width="40%" align="right">显示标题：</td>
<td align="left"><input type="text" name="name" size="40"></td>
</tr>
<tr>
<td width="40%" align="right">注释：</td>
<td align="left"><input type="text" name="title" size="40"></td>
</tr>
<tr>
<td width="40%" align="right">URL：</td>
<td align="left"><input type="text" name="url" size="40"></td>
</tr>
</table>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form></center>
<%else:end if%>
<%if act="up_date_" then
li_name=SqlStr_1(rs_up("li_name"))
li_title=SqlStr_1(rs_up("li_title"))
li_url=SqlStr_1(rs_up("li_url"))%>
<center><form method="POST" action="index.asp?module=links&act=up_date_finish&id=<%=rs_up("id")%>">
<table border="0" width="100%">
<tr>
<td width="40%" align="right">显示标题：</td>
<td align="left"><input type="text" name="name" size="40" value=<%=li_name%>></td>
</tr>
<tr>
<td width="40%" align="right">注释：</td>
<td align="left"><input type="text" name="title" size="40" value=<%=li_title%>></td>
</tr>
<tr>
<td width="40%" align="right">URL：</td>
<td align="left"><input type="text" name="url" size="40" value=<%=li_url%>></td>
</tr>
</table>
<p><input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></p>
</form></center>
<%else:end if
if act="up_date_finish" or act="del_" or act="addnew_finish" then
finish()
else:end if%>
<p></p></td>
		</tr>
		</table>
      </FIELDSET> 
</DIV></DIV></TD></TR></TBODY></TABLE>
<%else:end if
if module="" then
if group00="articler" then%>
<table border="0" width="100%" id="table1"><tr><td>
<br><br><br><br><br><br><br><br><p align="center">欢迎您来到<%=sh_name%>管理页面，现在可以开始您的管理操作了<br><br><br><br><br><br><br><br></td></tr>
</table>
<%else:end if
else:end if
if group00<>"sadmin" and group00<>"admin" then
if module="links" then aderror() else:end if
else:end if
else:end if%>
💿 文件大小 868 K
👤 上传用户 foreverxiluzai
📂 所属分类书籍源码
🏷️ 相关标签

#模块 #网络安全
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -