?? 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 + -