发布时间:2014-08-13 15:58:29作者:知识屋
代码来自冠龙科技多风格企业网站管理系统,不止冠龙科技用的这个,好多企业站都用的这段代码。
看admin目录下的SiteConfig.asp
CODE:
[Copy to clipboard]
< codepage=936 %>
<%
if session("adminName") = "" then
response.Redirect "Login.asp"
end if
%>
<!--#include file="../inc/Conn.asp"-->
<!--#include file="admin.asp"-->
<!-- #include file="Inc/Head.asp" -->
<!--#include file="inc/function.asp"-->
<%
dim ObjInstalled,Action,FoundErr,ErrMsg
ObjInstalled=IsObjInstalled("Scripting.FileSystemObject")
Action=trim(request("Action"))
if Action="" then
Action="ShowInfo"
end if
%>
<%
if Action="SaveConfig" then
call SaveConfig()
Response.Redirect "SiteConfig.asp"
else
call ShowConfig()
end if
if FoundErr=True then
call WriteErrMsg()
end if
call CloseConn()
sub ShowConfig()
%>
<form method="POST" action="SiteConfig.asp" id="form" name="form">
<table border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr>
<td height="32" colspan="2" class="topbg"> <div align="center">网
站 配 置</div> <div align="center"></div></td>
</tr>
<tr>
<td colspan="2" class="Title">网站信息配置</td>
</tr>
<tr>
<td class="tdbgl">网站名称:</td>
<td class="tdbg"> <input name="SiteName" type="text" id="SiteName" value="<%=SiteName%>" size="40" maxlength="50"> </td>
</tr>
<tr>
<td class="tdbgl">网站标题:</td>
<td class="tdbg"> <input name="SiteTitle" type="text" id="SiteTitle" value="<%=SiteTitle%>" size="40" maxlength="50"> </td>
</tr>
<tr>
<td class="tdbgl">网站地址:</td>
<td class="tdbg">
<input name="SiteUrl" type="text" id="SiteUrl" value="<%=SiteUrl%>" size="40" maxlength="255">
注意:不用填入 <FONT COLOR="FF0000">http://</FONT></td>
</tr>
<tr>
<td class="tdbgl">公司邮局:
请添写完整URL地址</td>
<td class="tdbg"> <input name="EnterpriseMail" type="text" id="EnterpriseMail" value="<%=EnterpriseMail%>" size="40" maxlength="255"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="224" class="tdbgl">LOGO地址: </td>
<td colspan="3" class="tdbg"> <input name="LogoUrl" type="text" id="LogoUrl" value="<%=LogoUrl%>" size="40" maxlength="255"> </td>
</tr>
<tr>
<td class="tdbgl">首页Banner地址(只能用FLASH):<br>
图片格式为:jpg,gif,bmp,png,swf </td>
<td colspan="5" class="tdbg"> <input name="BannerUrl" type="text" id="BannerUrl" value="<%=BannerUrl%>" size="25" maxlength="255"> 宽度:
<input name="width" type="text" id="width" value="<%=width%>" size="6" maxlength="5">高度:
<input name="High" type="text" id="High" value="<%=High%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tdbgl">是否为FLASH:</td>
<td colspan="3" class="tdbg"> <input name="IsFlash" type="radio" value="Yes" <%if IsFlash="Yes" then response.write "checked"%>>
是 <input name="IsFlash" type="radio" value="No" <%if IsFlash="No" then response.write "checked"%>>
否</td>
</tr>
<tr>
<td class="tdbgl">姓名:</td>
<td class="tdbg"> <input name="WebmasterName" type="text" id="WebmasterName" value="<%=WebmasterName%>" size="40" maxlength="20"> </td>
</tr>
<tr>
<td class="tdbgl">站长信箱:</td>
<td class="tdbg"> <input name="WebmasterEmail" type="text" id="WebmasterEmail" value="<%=WebmasterEmail%>" size="40" maxlength="100"> </td>
</tr>
<tr>
<td class="tdbgl">版权信息:<br>
支持HTML标记,不能使用双引号</td>
<td class="tdbg"><textarea name="Copyright" cols="50" rows="8" id="Copyright"><%=Copyright%></textarea></td>
</tr>
<tr>
<td class="tdbgl">版权信息(英文):<br>
支持HTML标记,不能使用双引号</td>
<td class="tdbg"><textarea name="EnCopyright" cols="50" rows="8" id="EnCopyright"><%=EnCopyright%></textarea> </td>
</tr>
<tr>
<td colspan="4" class="Title">网站选项配置</td>
</tr>
<tr>
<td class="tdbgl">首页每页产品或文章数:</td>
<td class="tdbg"> <input name="MaxPerPage_Default" type="text" id="MaxPerPage_Default" value="<%=MaxPerPage_Default%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tdbgl">首页新闻资讯条数:</td>
<td class="tdbg"> <input name="New_count" type="text" id="New_count" value="<%=New_count%>" size="6" maxlength="5"></td>
</tr>
<tr>
<td class="tdbgl">首页产品列表数:</td>
<td&n
2011-06-17
电脑开机时出现lass.exe进程是病毒吗?
自拍须谨慎!教你如何通过照片定位查看拍摄地点
电脑病毒最基础知识
黑客学员必须了解的C语言技术
精典详细内网渗透专题文章
教你破解Tp-Link的无线路由密码
解决SecureCRT中文显示乱码
QQ电脑管家和360哪个好?横评实测对比
攻防实战:无线网络路由入侵过程