install.asp

应用于高等院校党团思想教育

  </tr>
  <tr> 
    <td width="41%">表格体颜色</td>
    <td width="59%"> 
      <input type="text" name="Tablebodycolor" size="35" value="<%=Tablebodycolor%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">表格内文字标题颜色</td>
    <td width="59%"> 
      <input type="text" name="TableFontcolor" size="35" value="<%=TableFontcolor%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">表格内文字内容颜色</td>
    <td width="59%"> 
      <input type="text" name="TableContentcolor" size="35" value="<%=TableContentcolor%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">警告提醒语句的颜色</td>
    <td width="59%"> 
      <input type="text" name="AlertFontColor" size="35" value="<%=AlertFontColor%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">显示帖子的时候，相关帖子，转发帖子，回复等的颜色</td>
    <td width="59%"> 
      <input type="text" name="ContentTitle" size="35" value="<%=ContentTitle%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">默认常规字体</td>
    <td width="59%"> 
      <input type="text" name="strDefaultFontFace" size="35" value="<%=strDefaultFontFace%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">默认字体大小</td>
    <td width="59%"> 
      <input type="text" name="strDefaultFontSIZE" size="35" value="<%=strDefaultFontSIZE%>">
    </td>
  </tr>
  <tr bgcolor=<%=aTabletitlecolor%>> 
    <td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>关于标签设置</b></font></td>
  </tr>
  <tr> 
    <td width="41%">UBB标签</td>
    <td width="59%"> 
<select name="strAllowForumCode">
<option value="0" <%if strallowForumCode=0 then%>selected<%end if%>>不使用
<option value="1" <%if strallowForumCode=1 then%>selected<%end if%>>使用
</select>
    </td>
  </tr>
  <tr> 
    <td width="41%">HTML标签</td>
    <td width="59%"> 
<select name="strAllowHTML">
<option value="0" <%if strallowHTML=0 then%>selected<%end if%>>不使用
<option value="1" <%if strallowHTML=1 then%>selected<%end if%>>使用
</select>
    </td>
  </tr>
  <tr> 
    <td width="41%">贴图标签</td>
    <td width="59%"> 
<select name="strIMGInPosts">
<option value="0" <%if strIMGInPosts=0 then%>selected<%end if%>>不使用
<option value="1" <%if strIMGInPosts=1 then%>selected<%end if%>>使用
</select>
    </td>
  </tr>
  <tr> 
    <td width="41%">Flash标签</td>
    <td width="59%"> 
<select name="strflash">
<option value="0" <%if strflash=0 then%>selected<%end if%>>不使用
<option value="1" <%if strflash=1 then%>selected<%end if%>>使用
</select>
    </td>
  </tr>
  <tr> 
    <td width="41%">表情标签</td>
    <td width="59%"> 
<select name="strIcons">
<option value="0" <%if strIcons=0 then%>selected<%end if%>>不使用
<option value="1" <%if strIcons=1 then%>selected<%end if%>>使用
</select>
    </td>
  </tr>
  <tr bgcolor=<%=aTabletitlecolor%>> 
    <td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>版权广告信息</b></font></td>
  </tr>
  <tr> 
    <td width="41%">论坛页首广告代码</td>
    <td width="59%"> 
      <input type="text" name="ads1" size="35" value="<%=ads1%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">论坛页尾广告代码</td>
    <td width="59%"> 
      <input type="text" name="ads2" size="35" value="<%=ads2%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">版权信息</td>
    <td width="59%"> 
      <input type="text" name="Copyright" size="35" value="<%=Copyright%>">
    </td>
  </tr>
  <tr> 
    <td width="41%">版本信息</td>
    <td width="59%"> 
      <input type="text" name="Version" size="35" value="<%=Version%>">
    </td>
  </tr>
  <tr bgcolor=<%=aTabletitlecolor%>> 
    <td width="41%">&nbsp;</td>
    <td width="59%"> 
      <div align="center"> 
        <input type="submit" name="Submit" value="提 交">
      </div>
    </td>
  </tr>
</table>
</form>
<%
end sub

sub saveconst()
Dim objFSO, objTextFile
	Set objFSO = CreateObject("Scripting.FileSystemObject")	
	Set objTextFile = objFSO.CreateTextFile(Server.MapPath("inc/const.asp"),TRUE)
		
	objTextFile.WriteLine("<" & "%")
	
	objTextFile.WriteLine("Const ForumName=""" & request("ForumName") & """")
	objTextFile.WriteLine("Const ForumURL=""" & request("ForumURL") & """")
	objTextFile.WriteLine("Const CompanyName=""" & request("CompanyName") & """")
	objTextFile.WriteLine("Const HostUrl=""" & request("HostUrl") & """")
	objTextFile.WriteLine("Const SMTPServer=""" & request("SMTPServer") & """")
	objTextFile.WriteLine("Const SystemEmail=""" & request("SystemEmail") & """")
	objTextFile.WriteLine("Const TimeAdjust=""" & request("TimeAdjust") & """")
	objTextFile.WriteLine("Const Administrator=""" & request("Administrator") & """")
	objTextFile.WriteLine("Const ScriptTimeOut=""" & request("ScriptTimeOut") & """")
	
	objTextFile.WriteLine("Const Logo=""" & request("Logo") & """")
	objTextFile.WriteLine("Const Picurl=""" & request("Picurl") & """")
	
	objTextFile.WriteLine("Const Faceurl=""" & request("Faceurl") & """")
	objTextFile.WriteLine("Const EmailFlag=""" & request("EmailFlag") & """")
	objTextFile.WriteLine("Const Uploadpic=""" & request("Uploadpic") & """")
	objTextFile.WriteLine("Const IpFlag=""" & request("IpFlag") & """")
	
			
	objTextFile.WriteLine("Const FromFlag=""" & request("FromFlag") & """")
	objTextFile.WriteLine("Const guestuser=""" & request("guestuser") & """")
	objTextFile.WriteLine("Const openmsg=""" & request("openmsg") & """")
	objTextFile.WriteLine("Const AnnounceMaxBytes=""" & request("AnnounceMaxBytes") & """")
	objTextFile.WriteLine("Const DelPoints=""" & request("DelPoints") & """")
	objTextFile.WriteLine("Const MaxAnnouncePerPage=" & request("MaxAnnouncePerPage") & "")
	objTextFile.WriteLine("Const Maxtitlelist=" & request("Maxtitlelist") & "")
	objTextFile.WriteLine("Const Tablebackcolor=""" & request("Tablebackcolor") & """")
	objTextFile.WriteLine("Const aTablebackcolor=""" & request("aTablebackcolor") & """")
	objTextFile.WriteLine("Const Tabletitlecolor=""" & request("Tabletitlecolor") & """")
	objTextFile.WriteLine("Const aTabletitlecolor=""" & request("aTabletitlecolor") & """")
	objTextFile.WriteLine("Const Tablebodycolor=""" & request("Tablebodycolor") & """")
	objTextFile.WriteLine("Const TableFontcolor=""" & request("TableFontcolor") & """")
	objTextFile.WriteLine("Const TableContentcolor=""" & request("TableContentcolor") & """")
	objTextFile.WriteLine("Const AlertFontColor=""" & request("AlertFontColor") & """")		
	objTextFile.WriteLine("Const ContentTitle=""" & request("ContentTitle") & """")
	objTextFile.WriteLine("Const strDefaultFontFace=""" & request("strDefaultFontFace") & """")
	

	objTextFile.WriteLine("Const strDefaultFontSIZE=""" & request("strDefaultFontSIZE") & """")
	objTextFile.WriteLine("Const strAllowForumCode=""" & request("strAllowForumCode") & """")	
	objTextFile.WriteLine("Const strAllowHTML=""" & request("strAllowHTML") & """")
	objTextFile.WriteLine("Const strIMGInPosts=""" & request("strIMGInPosts") & """")
	objTextFile.WriteLine("Const strIcons=""" & request("strIcons") & """")	
	objTextFile.WriteLine("Const strflash=""" & request("strflash") & """")	
	objTextFile.WriteLine("Const ads1=""" & request("ads1") & """")
	objTextFile.WriteLine("Const ads2=""" & request("ads2") & """")
	objTextFile.WriteLine("Const Copyright=""" & request("Copyright") & """")
	objTextFile.WriteLine("Const Version=""" & request("Version") & """")
	
		
	objTextFile.WriteLine("%" & ">")		
		
	objTextFile.Close
	Set objTextFile = Nothing
	Set objFSO = Nothing
%>
<form method="POST" action=install.asp?action=saveadmin>
<table width="95%" border="0" cellspacing="1" cellpadding="3"  align=center bordercolor=<%=aTablebackcolor%>>
  <tr> 
    <td height="23" colspan="2" >注意：这里填写的用户名和密码为管理员使用，填写后直接登陆进入管理页面进行版面添加等操作。</td>
  </tr>
  <tr bgcolor=<%=aTabletitlecolor%>> 
    <td height="23" colspan="2" ><font color=<%=TableFontcolor%>><b>输入管理员信息</b></font></td>
  </tr>
  <tr> 
    <td width="20%">登陆账号</td>
    <td width="59%"> 
      <input type="text" name="username" size="35">
    </td>
  </tr>
  <tr> 
    <td width="41%">登陆密码</td>
    <td width="59%"> 
      <input type="text" name="password" size="35">
    </td>
  </tr>
  <tr bgcolor=<%=aTabletitlecolor%>> 
    <td colspan="2" > 
      <div align="center"> 
        <input type="submit" name="Submit" value="提 交">
      </div>
    </td>
  </tr>
</table>
</form>
<%
end sub

sub saveadmin()
	dim Errmsg
	if request("username")="" and request("password")="" then
	Errmsg=Errmsg+"<br>"+"<li>请输入完整管理员信息。"
	call Error()
	exit sub
	end if
	set rs=server.createobject("adodb.recordset")
	sql="select * from admin"
	rs.open sql,conn,1,3
	rs.addnew
	rs("username")=trim(request("username"))
	rs("password")=trim(request("password"))
	rs.update
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	response.write "管理员添加成功，请<a href=elogin.asp>登陆管理页面</a>进行操作。"
end sub
%>