admin_config_sitesetup.asp

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

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

End Function

Function CheckLinkValue

	GetFormValue

End Function

Function DisplayDatabaseLink

		%>
		
<table width="753" border=0 align="center" cellpadding=5 cellspacing=1 bgcolor=#cccccc class=TBone>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td width=140>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="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")%>>
      ABCUpload上传 </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_FaceUploadurl3" 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_faceuploadurl2" type="text" class=fminpt id="const_faceuploadurl2" value="<%=htmlencode(const_faceuploadurl2)%>" size="12" maxlength="255">
      头像上传路径 <font color="gray">(取相对路径)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>照片上传路径</td>
    <td colspan="2"><input name="const_photoup_path" type="text" class=fminpt id="const_photoup_path" value="<%=htmlencode(const_photoup_path)%>" size="12" maxlength="255">
      照片上传路径 <font color="gray">(取相对路径)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>表情图片路径</td>
    <td colspan="2"><input name="const_emoturl" type="text" class=fminpt id="const_emoturl" value="<%=htmlencode(const_emoturl)%>" 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>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>上传相片大小</td>
    <td colspan="2"><input name="const_PhotoMaxSize" type="text" class=fminpt id="const_FaceWidth3" value="<%=htmlencode(const_PhotoMaxSize)%>" size="12" maxlength="255">
      KB<font color="gray"> (所上传照片限制大小)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>头像宽度设置</td>
    <td colspan="2"> <input name="const_FaceHeight" type="text" class=fminpt id="const_FaceHeight" value="<%=htmlencode(const_FaceHeight)%>" size="12" maxlength="255">
      px<font color="gray">(头像宽度范围，设置最小和最大，中间用|格开，单位象素)</font> </td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>头像高度设置</td>
    <td colspan="2"> <input name="const_FaceWidth" type="text" class=fminpt id="const_FaceWidth" value="<%=htmlencode(const_FaceWidth)%>" size="12" maxlength="255">
      px<font color="gray">(头像高度范围，设置最小和最大，中间用|格开，单位象素)</font> </td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>留言脏字过滤</td>
    <td colspan="2"> <input name="const_BadWordString" type="text" class=fminpt id="const_BadWordString" value="<%=htmlencode(const_BadWordString)%>" size="40" maxlength="255"> 
      <font color="gray">(脏字用*代替，用|格开)</font> </td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>用户签名UBB设置</td>
    <td colspan="2"><input type="radio" name="const_EnableSignUBBCode" value="0" <%if const_EnableSignUBBCode=0 then Response.Write("checked")%>>
      禁止 
      <input type="radio" name="const_EnableSignUBBCode" value="1" <%if const_EnableSignUBBCode=1 then Response.Write("checked")%>>
      允许 <font color="gray">(是否开启用户签名UBB代码)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>留言UBB设置</td>
    <td colspan="2"><input type="radio" name="const_EnableMessageUBBCode" value="0" <%if const_EnableMessageUBBCode=0 then Response.Write("checked")%>>
      禁止 
      <input type="radio" name="const_EnableMessageUBBCode" value="1" <%if const_EnableMessageUBBCode=1 then Response.Write("checked")%>>
      允许 <font color="gray">(是否开启留言UBB代码)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>上传支持格式</td>
    <td colspan="2"> <input name="const_PhotoFormat" type="text" class=fminpt id="const_PhotoMaxSize" value="<%=htmlencode(const_PhotoFormat)%>" size="30" maxlength="255"> 
      <font color="gray">(支持上传的格式，中间用“,”格开)</font></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>首页banner广告</td>
    <td colspan="2"> <input name="const_banner" type="text" class=fminpt id="const_PhotoFormat" value="<%=htmlencode(const_banner)%>" size="30"> 
      <font color="gray">(顶部广告，支持HTML)</font> <br></td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9>
    <td>首页聊天室设置</td>
    <td colspan="2"><input type="radio" name="const_index_chat" value="0" <%if const_index_chat=0 then Response.Write("checked")%>>
      关闭