⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_system.asp

📁 这个是一个<图片系统>,但是又是不能用的..所以..上传上来..等你们改良一下
💻 ASP
字号:
🔍 
<%Response.buffer=true%>
<%
'=========================================================
' 功能：讯网wap图片程序
' 版本：讯网wap图片程序 v 0.1
' 时间：2006-7-65
' 作者：随风
' QQ:10025324 22216
' 电子信箱：web@sun116.net
'=========================================================
if session("AdminName") = "" then
    response.Redirect "Admin_Login.asp"
end if
%>
<!--#include file="conn.asp"-->
<!--#include file="Sql_Erro.asp"-->
<html>
<head>
<title>讯网wap图片系统-系统信息修改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/Admin_Style.css" rel="stylesheet" type=text/css>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table cellpadding="2" cellspacing="1" border="0" width="100%" class="border" align=center>
<tr align="center">
    <td height=23 colspan=2 class="topbg"><strong><span style="font-size: 9pt">网 站 信 息 设 置</span></strong></tr>
<tr>
    <td width="100" class="tdbg" height=25><strong><span style="font-size: 9pt">管理快捷方式：</span></strong></td>
    <td class="tdbg"><a href="Admin_system.asp"><span style="font-size: 9pt">网站信息设置</span></a><span style="font-size: 9pt"> | 
	</span> <a href="admin_data.asp?action=SpaceSize">
	<span style="font-size: 9pt">空间使用情况</span></a></td>
</tr>
</table>

<span style="font-size: 9pt">

<%
if request("type")="save" then
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set TS1 = fs.CreateTextFile(Server.MapPath("config.asp"), True) 
TS1.writeline "<"&chr(37)
TS1.writeline "db="&chr(34)&""&request("db")&""&chr(34)&""
TS1.writeline "SystemWebSite="&chr(34)&""&request("SystemWebSite")&""&chr(34)&""
TS1.writeline "SystemLogo="&chr(34)&""&request("SystemLogo")&""&chr(34)&""
TS1.writeline "SystemWebUrl="&chr(34)&""&request("SystemWebUrl")&""&chr(34)&""
TS1.writeline "SystemMail="&chr(34)&""&request("SystemMail")&""&chr(34)&""
TS1.writeline "SystemPicUrl="&chr(34)&""&request("SystemPicUrl")&""&chr(34)&""
TS1.writeline "SystemSearchKey="&chr(34)&""&request("SystemSearchKey")&""&chr(34)&""
TS1.writeline "ggshu="&chr(34)&""&request("ggshu")&""&chr(34)&""
TS1.writeline "topshu="&chr(34)&""&request("topshu")&""&chr(34)&""
TS1.writeline "SystemWeb="&chr(34)&""&request("SystemWeb")&""&chr(34)&""
TS1.writeline "SystemPin="&chr(34)&""&request("SystemPin")&""&chr(34)&""
TS1.writeline "SystemName="&chr(34)&""&request("SystemName")&""&chr(34)&""
TS1.writeline "IndexWidth="&chr(34)&""&request("IndexWidth")&""&chr(34)&""
TS1.writeline "IndexHeight="&chr(34)&""&request("IndexHeight")&""&chr(34)&""
TS1.writeline "ClassWidth="&chr(34)&""&request("ClassWidth")&""&chr(34)&""
TS1.writeline "ClassHeight="&chr(34)&""&request("ClassHeight")&""&chr(34)&""
TS1.writeline "TypeWidth="&chr(34)&""&request("TypeWidth")&""&chr(34)&""
TS1.writeline "TypeHeight="&chr(34)&""&request("TypeHeight")&""&chr(34)&""
TS1.writeline chr(37)&">"
Set TS1 = Nothing
Set fs=nothing
response.redirect "Admin_system.asp?ok=成功:修改系统设置完成!"
response.end
end if
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
End Function%>
<!--#include file="config.asp"-->
</span>
<form action="Admin_system.asp?type=save" method="post">
      <span style="font-size: 9pt">
      <%if request("ok")<>"" then%>
 </span>
 <table border="0" cellspacing="0" style="border-collapse: collapse" width="100%" cellpadding="0">
  <tr>
    <td width="100%">      
      <font color="#FF0000"><span style="font-size: 9pt"><%=request("ok")%></span></font><span style="font-size: 9pt">时间:<%=Now()%></span></td>
  </tr>
</table>
		<span style="font-size: 9pt">
<%end if%>
</span>
<table border="0" width="100%" cellspacing="1" class="border" align=center>
<tr align="center">
    <td height=23 colspan=3 class="topbg"><strong><span style="font-size: 9pt">网 站 信 息 设 置</span></strong></tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">数据库名</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="db" value="<%=db%>" size="50">
        	</span>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">本站站名：</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemWebSite" value="<%=SystemWebSite%>" size="50"></span><font color="#FF0000" style="font-size: 9pt">  例如：</font></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">本站LOGO：</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemLogo" value="<%=SystemLogo%>" size="50"></span><font color="#FF0000"><span style="font-size: 9pt">  例如：</span></font><span style="font-size: 9pt">images/logo.gif</span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">本站网址：</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemWebUrl" value="<%=SystemWebUrl%>" size="50">
          	</span>
          <font color="#FF0000">  <span style="font-size: 9pt">例如：http://www.sun116.net/</span></font></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">站长姓名：</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemName" value="<%=SystemName%>" size="50">
          	</span>
          <font color="#FF0000">  <span style="font-size: 9pt">例如：sun116</span></font></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg">
        　</td>
      <td width="13%" class="tdbg">
        <span style="font-size: 9pt">站长信箱：</span></td>
      <td width="82%" class="tdbg">
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemMail" value="<%=SystemMail%>" size="50">
          	</span><font color="#FF0000"><span style="font-size: 9pt">
			web@sun116.net</span></font></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">顶部显示条数:</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemPicUrl" value="<%=SystemPicUrl%>" size="50">
          	<font color="#FF0000">只能写数字：1 2 3 4 5...</font></span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">底部显示条数</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemSearchKey" value="<%=SystemSearchKey%>" size="50">
          	<font color="#FF0000">只能写数字：1 2 3 4 5...</font></span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">公告显示条数：</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="ggshu" value="<%=ggshu%>" maxlength="2" size="25">
        	</span>
        </div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">图片显示条数：</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="topshu" value="<%=topshu%>" size="25" maxlength="2">
        	包括最新更新，点击排行,推荐阅读</span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">图片系统开关：</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemWeb" value="<%=SystemWeb%>" size="25" maxlength="1">
          [ <font color="#FF0000">1</font>为开 <font color="#FF0000">2</font>为关 ]</span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">评论功能开关：</span></td>
      <td width="82%" class="tdbg"> 
        <div align="left"><span style="font-size: 9pt">&nbsp;<input type="text" name="SystemPin" value="<%=SystemPin%>" size="25" maxlength="1">
          [ <font color="#FF0000">1</font>为开 <font color="#FF0000">2</font>为关 ]</span></div>
      </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">首页图片大小：</span></td>
      <td width="82%" class="tdbg"><div align="left">
		<span style="font-size: 9pt">&nbsp;<input type="text" name="IndexWidth" value="<%=IndexWidth%>" size="6" >
          [ <font color="#FF0000">宽</font>：145 ]&nbsp;<input type="text" name="IndexHeight" value="<%=IndexHeight%>" size="6">
          [ <font color="#FF0000">高</font>：131 ]</span></div>
        </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">大类图片大小：</span></td>
      <td width="82%" class="tdbg"><div align="left">
		<span style="font-size: 9pt">&nbsp;<input type="text" name="ClassWidth" value="<%=ClassWidth%>" size="6">
          [ <font color="#FF0000">宽</font>：145 ]&nbsp;<input type="text" name="ClassHeight" value="<%=ClassHeight%>" size="6">
          [ <font color="#FF0000">高</font>：131 ]</span></div>
        </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        <span style="font-size: 9pt">小类图片大小：</span></td>
      <td width="82%" class="tdbg"><div align="left">
		<span style="font-size: 9pt">&nbsp;<input type="text" name="TypeWidth" value="<%=TypeWidth%>" size="6">
          [ <font color="#FF0000">宽</font>：145 ]&nbsp;<input type="text" name="TypeHeight" value="<%=TypeHeight%>" size="6">
          [ <font color="#FF0000">高</font>：131 ]</span></div> 
        </td>
    </tr>
    <tr> 
      <td width="3%" class="tdbg"> 
        　</td>
      <td width="13%" class="tdbg"> 
        　</td>
      <td width="82%" class="tdbg"> 
        <p align="center"> 
          <span style="font-size: 9pt"> 
          <input name="b1" type="submit" value="确认修改">
          &nbsp;&nbsp; 
          <input name="b2" type="reset" value="全部还原">
        </span>
        </p>
      </td>
    </tr>
  </table>
</form>
<span style="font-size: 9pt">
<!--#include file="copyright.asp" -->
  </span>
  </body>
</html>

⌨️ 快捷键说明

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