一段常见的企业站程序代码的利用方法

07-09-17 来源：[db:作者]

收藏我要投稿

代码来自冠龙科技多风格企业网站管理系统，不止冠龙科技用的这个，好多企业站都用的这段代码。
看admin目录下的SiteConfig.asp

CODE:
[Copy to clipboard]
<%@language=vbscript codepage=936 %>
<%
if session("adminName") = "" then
response.Redirect "Login.asp"
end if
%>




<%

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

点击复制链接与好友分享!回本站首页