www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_siteconfig.asp
<!--#include file="mdb.asp"-->
<!--#include file="aq.asp"-->
<%
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='index.asp';</script>")
Response.End
End if
dim yl1,yl2,yl3,yl4,yl5,yl6,yl7,yl8,yl9,yl10,yl11,yl12,yl13,yl14,yl15,yl16,yl17,yl18,yl19,yl20,yl21,yl22,yl23,action
currentadmin=Session("Admin")
yl1=request("yl1")
yl2=request("yl2")
yl3=request("yl3")
yl4=request("yl4")
yl5=request("yl5")
yl6=request("yl6")
yl7=request("yl7")
yl8=request("yl8")
yl9=request("yl9")
yl10=request("yl10")
yl11=request("yl11")
yl12=request("yl12")
yl13=request("yl13")
yl14=request("yl14")
yl15=request("yl15")
yl16=request("yl16")
yl17=request("yl17")
yl18=request("yl18")
yl19=request("yl19")
yl20=request("yl20")
yl21=request("yl21")
yl22=request("yl22")
yl23=request("yl23")
action=request("action")
if action="doit" then
if yl1="" then
Response.Write "<script language=javascript>alert('请输入新的网站名称');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl2="" then
Response.Write "<script language=javascript>alert('请输入新的网站地址');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl3="" then
Response.Write "<script language=javascript>alert('请输入新的站长邮箱');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
if yl4="" then
Response.Write "<script language=javascript>alert('请输入新的版权信息');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
set r=server.createobject("adodb.recordset")
r.open "select * from title",conn,1,3
if not r.eof then
r("site")=yl1
r("siteurl")=yl2
r("email")=yl3
r("Copyright")=yl4
r("login")=yl5
r("auto")=yl14
r("icp")=yl6
r("qq")=yl7
r("ads01")=yl8
r("ads02")=yl9
r("ads03")=yl10
r("ads04")=yl11
r("toubu")=yl12
r("ads05")=yl13
r("ads06")=yl15
r("ads07")=yl16
r("ads08")=yl17
r("ads09")=yl18
r("ads10")=yl19
r("hymm_safe")=yl20
r("keywords")=yl21
r("description")=yl22
r("tjdm")=yl23
r.update
Response.Write "<script language=javascript>alert('网站信息配置已成功更改！');this.location.href='admin_siteconfig.asp';</script>"
Response.End
else
Response.Write "<script language=javascript>alert('无法完成请求！');this.location.href='admin_siteconfig.asp';</script>"
Response.End
end if
r.close
set r=nothing
end if
dim site,siteurl,email,copyright,login,keywords,icp,description,tjdm
sql="select * from title"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,3
site=rs("site")
siteurl=rs("siteurl")
keywords=rs("keywords")
email=rs("email")
Copyright=rs("Copyright")
description=rs("description")
tjdm=rs("tjdm")
login=rs("login")
auto=rs("auto")
icp=rs("icp")
qq=rs("qq")
ads01=rs("ads01")
ads02=rs("ads02")
ads03=rs("ads03")
ads04=rs("ads04")
toubu=rs("toubu")
ads05=rs("ads05")
ads06=rs("ads06")
ads07=rs("ads07")
ads08=rs("ads08")
ads09=rs("ads09")
ads10=rs("ads10")
hymm_safe=rs("hymm_safe")
rs.close
set rs=nothing
%>
<html>
<head>
<title>网站配置</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="img/css_body.css" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
.STYLE1 {
color: #FF0000;
font-size: large;
}
.STYLE2 {color: #0000CC}
-->
</style>
</head>
<body>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center" class="tb_style">
<form name="myform" method="post" action="?menu=configok">
<tr>
<td colspan="2" height="30" class="td_title"> 网站基本设置</td>
</tr>
<tr>
<td width="150" height="25" align="right" class="td_border">网站名称：</td>
<td align="left" class="td_border"><input size="40" type="text" name="yl1" value=<%=site%>> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td align="right" align="right" class="td_border">网站域名：</td>
<td align="left" class="td_border"><input size="40" type="text" name="yl2" value=<%=siteurl%>> <font color="#FF0000">* 网站地址，注：不要加“ http:// ”结束请匆加“ / ”。</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">站长邮箱：</td>
<td align="left" class="td_border"><input size="40" type="text" name="yl3" value=<%=email%>> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">站长ＱＱ：</td>
<td align="left" class="td_border"><input size="40" type="text" name="yl7" value=<%=qq%>> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">备案信息：</td>
<td align="left" class="td_border"><input size="40" type="text" name="yl6" value=<%=icp%>> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">统计代码：</td>
<td align="left" class="td_border"><textarea cols="80%" rows="2" name="yl23"><%=tjdm%></textarea></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">关键词：</td>
<td align="left" class="td_border"><input size="70" value="<%=keywords%>" name="yl21"> <font color="#FF0000">关键词中间以","分开</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">网站介绍：</td>
<td align="left" class="td_border"><textarea cols="80%" rows="3" name="yl22"><%=description%></textarea> <font color="#FF0000">*</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">屏蔽词语：</td>
<td align="left" class="td_border"><input size="40" value="<%=hymm_safe%>" name="yl20"> <font color="#FF0000">每个关键词中间用@区分</font></td>
</tr>
<tr>
<td height="25" align="right" class="td_border">新站登陆：</td>
<td align="left" class="td_border"><%
if login=1 then
Response.Write "<input type='radio' value='1' name='yl5' checked> 打开<input type='radio' name='yl5' value='0'> 关闭"
else
Response.Write "<input type='radio' value='1' name='yl5'> 打开<input type='radio' name='yl5' value='0' checked> 关闭"
end if
%> 说明：选择“关闭”则不允许新站登陆！</td>
</tr>
<tr>
<td height="25" align="right" class="td_border">自动审核：</td>
<td align="left" class="td_border"><%
if auto=1 then
Response.Write "<input type='radio' value='1' name='yl14' checked> 打开<input type='radio' name='yl14' value='0'> 关闭"
else
Response.Write "<input type='radio' value='1' name='yl14'> 打开<input type='radio' name='yl14' value='0' checked> 关闭"
end if
%> 说明：选择“关闭”则手动审核新站登陆</td>
</tr>
<tr>
<td height="25" align="right" class="td_border">版权信息：</td>
<td align="left" class="td_border"><textarea cols="80%" rows="5" name="yl4"><%=Copyright%></textarea> <font color="#FF0000">*</font></td>
</tr>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center" class="tb_style">
<form name="myform" method="post" action="?menu=configok">
<tr>
<td colspan="2" height="30" class="td_title"> 网站头部编辑</td>
</tr>
<tr>
<td width="70" height="25" align="right" class="td_border"></td>
<td align="left" class="td_border"><textarea cols="100%" rows="10" name="yl12"><%=toubu%></textarea> </td>
</tr>
<table width="100%" border="0" cellpadding="1" cellspacing="1" align="center" class="tb_style">
<form name="myform" method="post" action="?menu=configok">
<tr>
<td colspan="2" height="30" class="td_title"> 网站广告设置</td>
</tr>
<tr>
<td width="150" height="25" align="right" class="td_border">广告 950x90 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl8"><%=ads01%></textarea> 调用标签 <{{ads01}}></td>
</tr>
<tr>
<td align="right" align="right" class="td_border">广告 468x60 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl9"><%=ads02%></textarea> 调用标签 <{{ads02}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">广告 200x200 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl10"><%=ads03%></textarea> 调用标签 <{{ads03}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">广告 234x60 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl11"><%=ads04%></textarea> 调用标签 <{{ads04}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl13"><%=ads05%></textarea> 调用标签 <{{ads05}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl15"><%=ads06%></textarea> 调用标签 <{{ads06}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl16"><%=ads07%></textarea> 调用标签 <{{ads07}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl17"><%=ads08%></textarea> 调用标签 <{{ads08}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl18"><%=ads09%></textarea> 调用标签 <{{ads09}}> </td>
</tr>
<tr>
<td align="right" align="right" class="td_border">自定义广告大小 ：</td>
<td align="left" class="td_border"><textarea cols="60%" rows="4" name="yl19"><%=ads10%></textarea> 调用标签 <{{ads10}}> </td>
</tr>
<tr>
<td colspan="2" align="center" style="border-bottom:4px solid #E2F5BC;"><input type="submit"> <input type="hidden" value="doit" name="action"></td>
</form>
</table>
</center>
</div>
</body>
</html>