admin_config_info.asp

WAP网上购物系统源程序,,有兴趣的朋友,一起研究一下..交流经眼

<!--#include file=INC/skin.asp-->

<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = ""
%>
<!--#include file=admin_login_check.asp-->
<%
Call opendatabase
txl_SiteHead const_txlname&"- 管理员"
SiteLink
Call CloseDatabase
web_end
Response.End()
Function SiteLink
%>
<form name="pollform3sdx" method="post" action="SiteSetup.asp">
<input type="hidden" name="SubmitFlag" value=yes>
  <p> <br>
    <b> Wap影音常用参数设置系统</b><font color=8888888 class=GrayFont>(下面是您网站的设置参数，请注意修改，错误的设置将会发生严重错误)<br>
    <br>
    <font color="#FF0000">本程序运行需要FSO的支持，如果您的服务器空间不支持本组件，请在本地机上将参数设置好，然后再上传</font><br>
    如果在设置后发现网站不能正常运行，请将原来的<font color="#FF0000">INC/commom.asp</font>覆盖回去</font> 
  </p>
<p>
<%
If Request("SubmitFlag") <> "" Then
		MakeDataBaseLinkFile
		Response.Write "<br>成功完成设置！"
		Exit Function
Else
	DisplayDatabaseLink
End If
%>
<br>
<input type=submit name=提交 value=提交 class=fmbtn>
<input type=reset name=取消 value=取消 class=fmbtn>
</form>
<%

End Function

Function CheckLinkValue

	GetFormValue

End Function

Function DisplayDatabaseLink

		%>
		
<table width="100%" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=159>Wap影音名称</td>
    <td colspan="2"><input name="const_txlname" type="text" class=fminpt id="const_txlname" value="<%=htmlencode(const_txlname)%>" size="30" maxlength="30"> 
      <font color=gray>(最长255字)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>Wap影音URl</td>
    <td colspan="2"><input name="const_txlurl" type="text" class=fminpt id="const_txlurl" value="<%=htmlencode(const_txlurl)%>" size="30" maxlength="255"> 
      <font color=gray>(主页地址，一定要取相对目录)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>主页名称</td>
    <td colspan="2"><input name="const_homepagename" type="text" class=fminpt id="const_homepagename" value="<%=htmlencode(const_homepagename)%>" size="30" maxlength="255"> 
      <font color=gray>(最长255字)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>数据库名称和地址 </td>
    <td colspan="2"><input name="const_AccessDatabase" type="text" class=fminpt id="const_AccessDatabase" value="<%=htmlencode(const_AccessDatabase)%>" size="25" maxlength="255"> 
      <font color=gray>(如果这里修改数据库名字，请手动修改数据库名字)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>主页URl</td>
    <td colspan="2"> <input name="const_homepageurl" type="text" class=fminpt id="const_homepageurl" value="<%=htmlencode(const_homepageurl)%>" size="30" maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td height="27">Logo地址</td>
    <td colspan="2"> <input name="const_txllogourl" type="text" class=fminpt id="const_txllogourl" value="<%=htmlencode(const_txllogourl)%>" size="30" maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>版权信息</td>
    <td colspan="2"> <input name="const_copyright" type="text" class=fminpt id="const_copyright" value="<%=htmlencode(const_copyright)%>" size="30" maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>斑竹姓名</td>
    <td colspan="2"><input name="const_adminname" type="text" class=fminpt id="const_adminname" value="<%=htmlencode(const_adminname)%>" size="30" maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>斑竹信箱</td>
    <td colspan="2"><input name="const_adminemail" type="text" class=fminpt id="const_adminemail" value="<%=htmlencode(const_adminemail)%>" size="30" maxlength="255"></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>短信欢迎新用户</td>
    <td colspan="2"> <input type="radio" name="const_welcomemessage" value="1" <%if const_welcomemessage=1 then Response.Write("checked")%>>
      开启 
      <input type="radio" name="const_welcomemessage" value="0" <%if const_welcomemessage=0 then Response.Write("checked")%>>
      关闭 <font color="gray">(是否开启短信欢迎新注册用户)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>邮箱欢迎新用户</td>
    <td colspan="2"><input type="radio" name="const_welcomeemail" value="1" <%if const_welcomeemail=1 then Response.Write("checked")%>>
      开启 
      <input type="radio" name="const_welcomeemail" value="0" <%if const_welcomeemail<>1 then Response.Write("checked")%>>
      关闭 <font color="gray">(是否开启邮箱信息欢迎新注册用户)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>在线超时</td>
    <td colspan="2"><input name="const_UserOnlineTimeOut" type="text" class=fminpt id="const_UserOnlineTimeOut" value="<%=htmlencode(const_UserOnlineTimeOut)%>" size="12" maxlength="255"> 
      <font color="gray">(在线用户在指定时间内不进行任何访问，则会离线，单位秒)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>邮件设置</td>
    <td colspan="2"><input type="radio" name="const_emailmode" value="0" <%if const_emailmode=0 then Response.Write("checked")%>>
      禁止邮件发送 
      <input type="radio" name="const_emailmode" value="1" <%if const_emailmode=1 then Response.Write("checked")%>>
      Jmail 
      <input type="radio" name="const_emailmode" value="2" <%if const_emailmode=2 then Response.Write("checked")%>>
      CDO 
      <input type="radio" name="const_emailmode" value="3" <%if const_emailmode=3 then Response.Write("checked")%>>
      EasyMail</td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>上传设置</td>
    <td colspan="2"><input type="radio" name="const_uploadcomponent" value="0" <%if const_uploadcomponent=0 then Response.Write("checked")%>>
      不能上传 
      <input type="radio" name="const_uploadcomponent" value="1" <%if const_uploadcomponent=1 then Response.Write("checked")%>>
      无组建上传 
      <input type="radio" name="const_uploadcomponent" value="2" <%if const_uploadcomponent=2 then Response.Write("checked")%>>
      FileUp组件上传 
      <input type="radio" name="const_uploadcomponent" value="3" <%if const_uploadcomponent=3 then Response.Write("checked")%>>
      .Net上传上传 </td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>头像上传设置</td>
    <td colspan="2"><input type="radio" name="const_EnableUploadface" value="0" <%if const_EnableUploadface=0 then Response.Write("checked")%>>
      禁止上传 
      <input type="radio" name="const_EnableUploadface" value="1" <%if const_EnableUploadface=1 then Response.Write("checked")%>>
      允许上传</td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>头像上传路径</td>
    <td colspan="2"><input name="const_FaceUploadurl" type="text" class=fminpt id="const_FaceUploadurl" value="<%=htmlencode(const_FaceUploadurl)%>" size="12" maxlength="255">
      头像上传路径 <font color="gray">(取相对路径)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>最大上传头像大小</td>
    <td colspan="2"><input name="const_MaxUploadFaceSize" type="text" class=fminpt id="const_MaxUploadFaceSize" value="<%=htmlencode(const_MaxUploadFaceSize)%>" size="12" maxlength="255">
      KB <font color="gray">(所上传头像限制大小)</font></td>
  </tr>