infoconfig.asp

自由领域ASP+WAP同学录(V1.0)系统是一套仿ChinaRen的即可用电脑浏览又可以用手机访问的互动同学录单班级系统。这套系统同学录系统可以满足现在WAP普及的今天同学用手机上网交流的需求

<!--#include file=../../INC/txlconst.asp-->
<!--#include file=../../INC/txlfun.asp-->
<!--
<pre>
┌─ 自由领域ASP+WAP同学录系统 ─────────────────┐
│                                                               │
│  感谢你使用 自由领域ASP+WAP同学录系统(测试版）                │
│  使用本免费源码您必须遵守以下规定                             │
│    不得公开发表代码 不得用做商业用途，不得向其他使用者收费。  │
│                                                               │
│  使用时，请保留此段信息，谢谢配合                             │
│                                                               │
│                                       2004/12/19              │
│                                                               │
└────────────────  http://99167.jahee.com ───┘
</per>
-->
<%
Dim const_txl_HomeUrl
const_txl_HomeUrl = "../../"
%>
<!--#include file=../checkadmin.asp-->
<%
Call opendatabase
txl_SiteHead const_txlname&"- 管理员"
SiteLink
Call CloseDatabase
SiteBottom
Response.End()
Function SiteLink
%>
<form name="pollform3sdx" method="post" action="SiteSetup.asp">
<input type="hidden" name="SubmitFlag" value=yes>
  <p> <br>
    <b> 同学录常用参数设置系统</b><font color=8888888 class=GrayFont>(下面是您网站的设置参数，请注意修改，错误的设置将会发生严重错误)<br>
    <br>
    <font color="#FF0000">本程序运行需要FSO的支持，如果您的服务器空间不支持本组件，请在本地机上将参数设置好，然后再上传</font><br>
    如果在设置后发现网站不能正常运行，请将原来的<font color="#FF0000">INC/txlconst.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>同学录名称</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>同学录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>