infoconfig.asp

同学录的设计

  </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">
      pt <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">
      pt <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=#eeeeee class=TBBG1> 
    <td colspan=3 align=center>同学录管理员用户名和密码设置</td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>管理员用户名和密码</td>
    <td colspan="2"><input name="const_admin" type="text" class=fminpt id="const_admin" value="<%=htmlencode(const_admin)%>" size="30" maxlength="255"> 
      <font color=gray>(管理员用户名和密码，用|格开)</font></td>
  </tr>
  <tr bgcolor=#eeeeee class=TBBG1> 
    <td colspan=3 align=center>同学录状态设置</td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>同学录状态设置</td>
    <td colspan="2"> <input type="radio" name="SiteEnableFlag" value="1" <%if application("SiteEnableFlag")=1 then Response.Write("checked")%>>
      开放 
      <input type="radio" name="SiteEnableFlag" value="0" <%if application("SiteEnableFlag")=0 then Response.Write("checked")%>>
      关闭 </td>
  </tr>
  <tr bgcolor=#f7f7f7 class=TBBG9> 
    <td>同学录关闭说明</td>
    <td width="298" valign="middle"> <textarea name="SiteDisbledescription" cols="40" rows="4" class="fminpt" id="SiteDisbledescription"><%=htmlencode(application("SiteDisbledescription"))%></textarea>
    </td>
    <td width="272" valign="top"><font color=#FF0000>(在这里输入关闭说明，为空则不生效)</font></td>
  </tr>
</table>
		<%

End Function

Function GetFormValue

	dim thing
	for each thing in Request.Form
		Response.Write thing&"="&Request(thing)&"<br>"
	next

End Function

Function MakeDataBaseLinkFile
	on error resume next
	application("SiteEnableFlag")=Request("SiteEnableFlag")
	application("SiteDisbledescription")=Replace(Request("SiteDisbledescription"),Chr(34),Chr(34))
	if application("SiteEnableFlag")=0 then
		Response.Write("同学录状态设置：<font color=red> 关闭 </font><br>要设置开放，请进入本管理系统设置！<br>")
	else
		Response.Write("同学录状态设置：<font color=green> 开放 </font>")
	end if
	Dim fs,outfile,n,outfilestr,Form_DEF_BBS_Name 
	Set fs = CreateObject("Scripting.FileSystemObject")
	Set outfile=fs.CreateTextFile(Server.Mappath("../../inc/txlconst.asp"),true)
	if not isobject(fs) then
		Response.Write "您的服务器不支持FSO，请手动修改INC/txlconst.asp文件！"
		Response.End()
	end if
	outfilestr=""
	
	outfilestr=outfilestr&chr(60) & "%@ LANGUAGE=VBScript CodePage=936%" & chr(62) & VbCrLf
	outfilestr=outfilestr& chr(60) & "%Option Explicit" & VbCrLf
	outfilestr=outfilestr& "Response.Buffer = True" & VbCrLf
	outfilestr=outfilestr& VbCrLf
	
	
	outfilestr=outfilestr& "  If application("& chr(34) &"SiteEnableFlag"& chr(34) &")="&chr(34)& chr(34)&" Then application("&chr(34)&"SiteEnableFlag"&chr(34)&") = 1" & VbCrLf
	outfilestr=outfilestr& "  If application("& chr(34) &"SiteEnableFlag"& chr(34) &")=0 and application("& chr(34) &"SiteDisbledescription"& chr(34) &")<>"& chr(34) & chr(34) &" and inStr(Replace(Lcase(Request.ServerVariables("& chr(34) &"URL"& chr(34) &")),"& chr(34) &"\"& chr(34) &","& chr(34) &"/"& chr(34) &"),"& chr(34) &"/manage/"& chr(34) &") = 0 Then" & VbCrLf
	outfilestr=outfilestr& "    Response.Write"& chr(34) &" 由于以下原因，本同学录暂时关闭：<br>"& chr(34) &"&application("& chr(34) &"SiteDisbledescription"& chr(34) &")"& VbCrLf
	outfilestr=outfilestr& "    Response.End"& VbCrLf
	outfilestr=outfilestr& "  End If"& VbCrLf
	outfilestr=outfilestr&  VbCrLf
	
	outfilestr=outfilestr&"  Const	const_admin="& chr(34) &Request("const_admin")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_txlname="& chr(34) &Request("const_txlname")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_txlurl="& chr(34) &Request("const_txlurl")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_homepagename="& chr(34) &Request("const_homepagename")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_homepageurl="& chr(34) &Request("const_homepageurl")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_AccessDatabase="& chr(34) &Request("const_AccessDatabase")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_txllogourl="& chr(34) &Request("const_txllogourl")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_copyright="& chr(34) &Replace(Request("const_copyright"),Chr(34),Chr(34)&Chr(34))& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_adminname="& chr(34) &Request("const_adminname")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_adminemail="& chr(34) &Request("const_adminemail")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_BadWordString="& chr(34) &Request("const_BadWordString")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_FaceUploadurl="& chr(34) &Request("const_FaceUploadurl")& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_banner="& chr(34) &Replace(Request("const_banner"),Chr(34),Chr(34)&Chr(34))& chr(34) &  VbCrLf
	outfilestr=outfilestr&"  Const	const_PhotoFormat="& chr(34) &Replace(Request("const_PhotoFormat"),Chr(34),Chr(34)&Chr(34))& chr(34) &  VbCrLf
	outfilestr=outfilestr&  VbCrLf
	
	outfilestr=outfilestr&"  Const	const_welcomemessage="& Request("const_welcomemessage")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_welcomeemail="& Request("const_welcomeemail")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_UserOnlineTimeOut="& Request("const_UserOnlineTimeOut")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_emailmode="& Request("const_emailmode")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_uploadcomponent="& Request("const_uploadcomponent")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_EnableUploadface="& Request("const_EnableUploadface")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_MaxUploadFaceSize="& Request("const_MaxUploadFaceSize")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_FaceHeight="& Request("const_FaceHeight")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_FaceWidth="& Request("const_FaceWidth")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_EnableSignUBBCode="& Request("const_EnableSignUBBCode")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_PhotoMaxSize="& Request("const_PhotoMaxSize")&   VbCrLf
	outfilestr=outfilestr&"  Const	const_EnableMessageUBBCode="& Request("const_EnableMessageUBBCode")&   VbCrLf
	outfilestr=outfilestr&  VbCrLf
	outfilestr=outfilestr&  VbCrLf
	outfilestr=outfilestr& "%" & chr(62) & VbCrLf
	outfile.write outfilestr
	outfile.Close
	Set Fs = Nothing
	
End Function
%>