📄 admin.asp
字号:
<!--#INCLUDE FILE="conn.asp" -->
<%
if session("password")<>"wpassword" then
response.write "passworderr"
response.redirect "login.asp"
response.end
end if
response.buffer=true
Response.Expires=0
'Set conn = Server.CreateObject("ADODB.Connection")
'conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("enet.asp")
Set rs9 = Server.CreateObject("ADODB.Recordset")
sql9 ="SELECT * From about Order By id DESC"
RS9.open sql9,Conn,3,3
%>
<html>
<head>
<title><%=rs9("name")%>系统更改</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="style/style.css">
<style>
<!--
body { font-size: 9pt}
table { font-size: 9pt}
-->
</style>
</head>
<body bgcolor="#FFFFFF" background="point.gif">
<form method="post" action="adminsave.asp" name="system">
<table width="500" border="1" cellspacing="1" cellpadding="0" align="center" bordercolorlight="#CCCCFF" bordercolordark="#FFFFFF">
<tr bgcolor="#FFCC00">
<td colspan="2">
<div align="center"><a href=index.asp><%=rs9("name")%></a>系统更改：</div>
</td>
</tr>
<tr>
<td colspan="2">
<div align="right"><font color="#FF9999"> </font></div>
</td>
</tr>
<tr>
<td width="102">返回首页</td>
<td>
<input type="text" name="homepage" size="50" value="<%=rs9("home")%>">
</td>
</tr>
<tr>
<td width="102">名称：</td>
<td>
<input type="text" name="name" size="50" value="<%=rs9("name")%>">
</td>
</tr>
<tr>
<td width="102">LOGO:</td>
<td>
<input type="text" name="logo" size="50" value="<%=rs9("logo")%>">
</td>
</tr>
<tr>
<td width="102">网站网址：</td>
<td>
<input type="text" name="logourl" size="50" value="<%=rs9("logourl")%>">
</td>
</tr>
<tr>
<td width="102">表格边框：</td>
<td>
<input type="text" name="bian" size="20" value="<%=rs9("bian")%>">
</td>
</tr>
<tr>
<td width="102">背景色深：</td>
<td>
<input type="text" name="bgs" size="20" value="<%=rs9("bgs")%>">
<font color=<%=rs9("bgs")%>><b>当前背景色</b></font></td>
</tr>
<tr>
<td width="102">背景色浅：</td>
<td>
<input type="text" name="bgss" size="30" value="<%=rs9("bgss")%>">
<font color=<%=rs9("bgss")%>><b>当前背景色</b></font> </td>
</tr>
<tr>
<td width="102">背景色更浅：</td>
<td>
<input type="text" name="bgsrc" size="30" value="<%=rs9("bgsrc")%>">
<font color=<%=rs9("bgsrc")%>><b>当前背景色</b></font> </td>
<%rs9.close%>
</tr>
<tr>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("enet.asp")
Set rs8 = Server.CreateObject("ADODB.Recordset")
sql8 ="SELECT * From admin Order By id DESC"
RS8.open sql8,Conn,3,3
%>
<td width="102">新用户名</td>
<td>
<input type="text" name="admin" size="30" value="<%=rs8("admin")%>">
</td>
</tr>
<tr>
<td width="102">新密码</td>
<td>
<input type="text" name="password" size="30" value="<%=rs8("password")%>">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center">
<input type="submit" name="Submit" value="提交">
<input type="reset" name="Submit2" value="取消">
</div>
</td>
</tr>
<tr>
<td colspan="2">金 壁 辉 煌：深
<input type="text" name="textfield" size="10" value="#e9b03a">
浅
<input type="text" name="textfield2" size="10" value="#f3d192">
更浅
<input type="text" name="textfield3" size="10" value="#fbf0dd">
</td>
</tr>
<tr>
<td colspan="2">蓝 蓝 海 洋：深
<input type="text" name="textfield4" size="10" value="#7285cf">
浅
<input type="text" name="textfield22" size="10" value="#a5b0e0">
更浅
<input type="text" name="textfield32" size="10" value="#e9ebf8">
</td>
</tr>
<tr>
<td colspan="2">银 白 世 界：深
<input type="text" name="textfield5" size="10" value="#7285cf">
浅
<input type="text" name="textfield23" size="10" value="#dfdfdf">
更浅
<input type="text" name="textfield33" size="10" value="#f2f2f2">
</td>
</tr>
<tr>
<td colspan="2">粉 红 回 忆：深
<input type="text" name="textfield6" size="10" value="#ffc4e2">
浅
<input type="text" name="textfield24" size="10" value="#ffd0e9">
更浅
<input type="text" name="textfield34" size="10" value="#ffeef7">
</td>
</tr>
<tr>
<td colspan="2">
<div align="center"><br>
Copyright (C)2004 - 2005 chongchongstudio All rights reserved. </div>
</td>
</tr>
</table>
</form>
</body>
</html>
<%rs8.close%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -