📄 config.asp
字号:
<%
'=========================================================
' 『动感在线』版权所有(C) Donggan.Net
' 您可以自由应用本程序于合法的个人或商业行为。
' 您必须保留版权信息。
'=========================================================
' Version:1.3
' Date: 2003-01-10
' Script Written by xubin
'=========================================================
' Copyright (C) 1999-2002 Donggan.Net. All rights reserved.
' Web: http://www.Donggan.net
' Email: webmaster@Donggan.net,webmaster@mail.Donggan.net
'=========================================================
%>
<!--#Include File="conn.asp" -->
<!--#Include File="procedure.asp" -->
<!--#Include File="md5.asp" -->
<!--#Include File="Language.asp" -->
<%
Call loaderror()
Call showwebdata()
Call Language_var(Language,"config")
%>
<html>
<head>
<title><%=webname%>|</title>
<meta http-equiv="Content-Type" content="text/html; charSet=<%=Language_charSet%>">
<link rel="stylesheet" href="images/styles.css" type="text/css">
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<!--#Include File="head.asp" -->
<%
If Request.Form("saveSet") <> "" Then
'如果选择了确定按钮则保存信息
Call saveSet()
Else
'否则显示修改
Call main()
End If
'显示修改的项目
Sub main()
'打开数据库,获得基本信息
Set rs=Server.Createobject("adodb.recordset")
sql="select * from Management"
rs.open sql,conn,1,1
%>
<Form method="POST" action="?">
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="508" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" height="20">
<tr>
<td colspan="2" background="images/mmTo.gIf" height="20" width="504"><DIV style="FILTER: dropshadow(color=#FFFFFF, offx=1, offy=1, positive=1); WIDTH: 100%; CURSOR: hAND; POSITION: relative">
<p align="center"><font color="#336699"><%=Language_config(0)%></font>
</div></td>
</tr>
<tr>
<td height="41" width="111"><font color="#336699"> <%=Language_config(1)%></font></td>
<td width="391" height="41"><font color="#7C96B8">
<input type="text" name="AdminName" size="32" value="<%=rs("UserName")%>" class="bk">
<br> * <%=Language_config(6)%></font></td>
</tr>
<tr>
<td width="111" height="42"><font color="#336699"> <%=Language_config(2)%></font></td>
<td height="42" width="391"> <font color="#7C96B8">
<input type="password" name="AdminPassword" size="32" class="bk">
<br> * <%=Language_config(6)%>,<%=Language_config(12)%></font></td>
</tr>
<tr>
<td height="28" width="111"><font color="#336699"> <%=Language_config(3)%></font></td>
<td height="28" width="391"><font color="#7C96B8">
<input type="text" name="webname" size="32" value="<%=rs("WebName")%>" class="bk">
<br> * <%=Language_config(7)%></font></td>
</tr>
<tr>
<td height="1" width="111"><font color="#336699"> <%=Language_config(4)%></font></td>
<td height="1" width="391"><font color="#7C96B8">
<input type="text" name="weburl" size="32" value="<%=rs("WebURL")%>" class="bk">
<br> * <%=Language_config(7)%></font></td>
</tr>
<tr>
<td height="1" width="111"><font color="#336699"> <%=Language_config(5)%></font></td>
<td height="1" width="391"><font color="#7C96B8">
<select name="Language" class="bk" size="1">
<option value="Simplified_Chinese" <%If rs("Language")="Simplified_Chinese" Then Response.Write "selected" %>><%=Language_config(8)%> </option>
<option value="Traditional_Chinese" <%If rs("Language")="Traditional_Chinese" Then Response.Write "selected" %>><%=Language_config(9)%> </option>
</select> </font></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<table border="1" cellspacing="0" cellpadding="0" width="508" align="center" bordercolor="#7C96B8" bordercolordark="#FFFFFF" background="images/mmTo.gIf" bgcolor="#7C96B8" height="13">
<tr>
<td width="503" height="1">
<p align="center">
<input type="Submit" value="<%=Language_head(1)%>" name="saveSet" class="Tips_bo">
<input type="reSet" value="<%=Language_head(2)%>" name="B2" class="Tips_bo"></td>
</tr>
</table>
</center>
</div>
</Form>
<%
rs.close
End Sub
'保存设置
Sub saveSet()
Set rs=Server.Createobject("adodb.recordset")
UserName = Request.Form("AdminName")
UserPass = Request.Form("AdminPassword")
WebName = Request.Form("WebName")
WebURL = Request.Form("WebURL")
Language = Request.Form("Language")
sql="select * from Management"
rs.open sql,conn,3,2
rs("username")=UserName
If UserPass<>"" Then rs("userpass")=MD5(UserPass)
rs("WebName")=WebName
rs("WebURL")=WebURL
rs("Language")=Language
rs.update
rs.close
errortext=Language_config(11)
Call showerror1()
End Sub
'关闭销毁对象
Set rs=nothing
conn.close
Set conn=nothing
%>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -