📄 webconfig.asp
字号:
<!--#include file="conn.asp"-->
<%if session("admin")="" then
response.Write "<script language='javascript'>alert('网络超时或您还没有登录！');window.location.href='login.asp';</script>"
response.End
else
if session("flag")>1 then
response.Write "<div align=center><font size=80 color=red><b>您没有此项目管理权限！</b></font></div>"
response.End
end if
end if
%>
<%dim action
action=request.QueryString("action")
'//保存信息
if action="save" then
ly=trim(request("ly"))
login=trim(request("login"))
vote=trim(request("vote"))
links=trim(request("links"))
fl=trim(request("fl"))
flsl=trim(request("flsl"))
fll=trim(request("fll"))
shop_config=ly&","&login&","&vote&","&links&","&fl&","&flsl&","&fll
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config ",conn,1,3
rs("webname")=trim(request("webname"))
rs("webemail")=trim(request("webemail"))
rs("dizhi")=trim(request("dizhi"))
rs("youbian")=trim(request("youbian"))
rs("dianhua")=trim(request("dianhua"))
rs("copyright")=trim(request("copyright"))
rs("weblogo")=trim(request("weblogo"))
rs("class")=trim(request("class"))
rs("shop_config")=shop_config
rs("webbanner")=trim(request("webbanner"))
rs("bannerlx")=trim(request("bannerlx"))
rs("weburl")=trim(request("weburl"))
rs("musicurl")=trim(request("musicurl"))
rs("mailaddress")=request("mailaddress")
rs("mailusername")=request("mailusername")
rs("mailuserpass")=request("mailuserpass")
rs("mailname")=request("mailname")
rs("mailsend")=request("mailsend")
rs.update
rs.close
set rs=nothing
response.Write "<script language=javascript>alert('网站资料修改成功！');history.go(-1);</script>"
end if%>
<%
Set rs_midi = Server.CreateObject("ADODB.Recordset")
rs_midi.open "select * from shop_midi",conn,1,1
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="22" bgcolor="#f1f1f1">
<div align="center"><font color="#000000">网站信息设置</font></div>
</td>
</tr>
<tr>
<td height="107" bgcolor="#FFFFFF">
<table width="90%" border="0" align="center" cellpadding="3" cellspacing="0">
<form name="form1" method="post" action="webconfig.asp?action=save">
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_config",conn,1,1
shop_config_2=rs("shop_config")
shop_config_2=split(shop_config_2,",")
ly=shop_config_2(0)
login=shop_config_2(1)
vote=shop_config_2(2)
links=shop_config_2(3)
fl=shop_config_2(4)
flsl=shop_config_2(5)
fll=shop_config_2(6)
%>
<tr>
<td>网站网址：</td>
<td width="460"> <input name="weburl" class="wenbenkuang" type="text" id="weburl" size="21" value="<%=trim(rs("weburl"))%>">
</td>
</tr>
<tr>
<td width="128">网站名称：</td>
<td> <input name="webname" class="wenbenkuang" type="text" id="webname" size="28" value="<%=trim(rs("webname"))%>">
</td>
</tr>
<tr>
<td width="128">网站Email：</td>
<td> <input name="webemail" class="wenbenkuang" type="text" id="webemail" size="28" value="<%=trim(rs("webemail"))%>">
</td>
</tr>
<tr>
<td width="128">公司地址：</td>
<td> <input name="dizhi" class="wenbenkuang" type="text" id="dizhi" size="28" value="<%=trim(rs("dizhi"))%>">
</td>
</tr>
<tr>
<td width="128">公司邮编：</td>
<td> <input name="youbian" class="wenbenkuang" type="text" id="youbian" size="28" value="<%=trim(rs("youbian"))%>" onKeyPress = "return regInput(this, /^[0-9]*$/, String.fromCharCode(event.keyCode))"
onpaste = "return regInput(this, /^[0-9]*$/, window.clipboardData.getData('Text'))"
ondrop = "return regInput(this, /^[0-9]*$/, event.dataTransfer.getData('Text'))"
> </td>
</tr>
<tr>
<td width="128">公司电话：</td>
<td> <input name="dianhua" class="wenbenkuang" type="text" id="dianhua" size="28" value="<%=trim(rs("dianhua"))%>">
</td>
</tr>
<tr>
<td width="128">网站版权：</td>
<td> <input name="copyright" class="wenbenkuang" type="text" size="28" value="<%=trim(rs("copyright"))%>">
</td>
</tr>
<tr>
<td height="22">网站Logo：</td>
<td height="22"> <input name="weblogo" class="wenbenkuang" type="text" id="weblogo" size="28" value="<%=trim(rs("weblogo"))%>">
<a href=# onclick="window.open('upload_c.asp?a=uploadfile&b=1&c=form1&d=weblogo','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">上传图片</a>
</td>
</tr>
<tr>
<td height="0">Banner：</td>
<td height="0"> <input name="webbanner" class="wenbenkuang" type="text" id="webbanner" size="28" value="<%=trim(rs("webbanner"))%>">
属性：
<select name="bannerlx" id="bannerlx">
<option value="0" <%if rs("bannerlx")="0" then%>selected<%else%><%end if%>>图片</option>
<option value="1" <%if rs("bannerlx")="1" then%>selected<%else%><%end if%>>FLASH</option>
</select> <a href=# onclick="window.open('upload_c.asp?a=uploadfile&b=2&c=form1&d=webbanner','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')">
上传图片或FLASH</a> </td>
</tr>
<tr>
<td height="3">留言是否对外公开：</td>
<td height="0">
<%select case ly
case 1%>
<input name="ly" class="wenbenkuang" type="radio" value="1" checked>
公开
<input type="radio" name="ly" value="0">
不公开
<%case 0%>
<input name="ly" type="radio" value="1" >
公开
<input type="radio" name="ly" value="0" checked>
不公开
<%end select%>
</td>
</tr>
<tr>
<td height="6">会员登录是否调用：</td>
<td height="0">
<%select case login
case 1%>
<input name="login" class="wenbenkuang" type="radio" value="1" checked>
调用
<input type="radio" name="login" value="0">
不调用
<%case 0%>
<input name="login" type="radio" value="1" >
调用
<input type="radio" name="login" value="0" checked>
不调用
<%end select%>
</td>
</tr>
<tr>
<td>是否调用投票：</td>
<td height="1">
<%select case vote
case 1%>
<input name="vote" class="wenbenkuang" type="radio" value="1" checked>
调用
<input type="radio" name="vote" value="0">
不调用
<%case 0%>
<input name="vote" type="radio" value="1" >
调用
<input type="radio" name="vote" value="0" checked>
不调用
<%end select%>
</td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -