⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_dbmake.asp

📁 一个asp写的论坛源代码,论坛所需要的功能都有
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 

Sub upfiles	%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<br>
<form method="post" action="?action=attachments">
  <table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
    <tr>
      <td class="a1" colspan="2">搜索附件 【模糊搜索】</td>
    </tr>
    <tr>
      <td class="altbg1">所在论坛:</td>
      <td class="altbg2" align="right">
		<select name="inforum">
			<option value="all"	selected="selected">&nbsp;&nbsp;> 全部</option>
			<%Call BBsList(0)%>
        </select>
      </td>
    </tr>
    <tr>
      <td class="altbg1">帖子ID:</td>
      <td class="altbg2" align="right"><input type="text" name="tids" size="40"></td>
    </tr>
    <tr>
      <td class="altbg1">上传用户名:</td>
      <td class="altbg2" align="right"><input type="text" name="upname" size="40"></td>
    </tr>
    <tr>
      <td class="altbg1">附件名称:</td>
      <td class="altbg2" align="right"><input type="text" name="upsize" size="40"></td>
    </tr>
    <tr>
      <td class="altbg1">被下载次数大于:</td>
      <td class="altbg2" align="right"><input type="text" name="dmaxcount" size="40"></td>
    </tr>
    <tr>
      <td class="altbg1">被下载次数小于:</td>
      <td class="altbg2" align="right"><input type="text" name="dmincount" size="40"></td>
    </tr>
  </table>
  <br>
  <center>
    <input type="submit" name="searchsubmit" value="提 交">
  </center>
</form>
<br>
<br>
<%
End Sub

Sub reforumdel
	Dim Rs,tablename
	Tablename = Replace(Request("tablename"),"'","''")
	If Tablename&"" = "" Then
		Successmsg " 请输入回帖表名称。"
	Else
		If not team.Execute("Select ReList From ["&isforum&"forum] where ReList='"&Tablename&"'" ).eof Then
			SuccessMsg " 该表中有对应的主题，所以不能删除。"
		End If
		if Ucase(Trim(team.Club_Class(11))) = Ucase(Trim(Tablename)) then
			SuccessMsg("当前正在使用中的数据库不能删除。")
		End If
		team.execute " delete from ["&isforum&"TableList] where TableName='"&Tablename&"' "
		team.Execute " drop table "&Tablename&"  " 
		SuccessMsg " 选中的回帖表已经被删除，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=reforums>回帖表设置  </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=reforums>。 "
	End if
End Sub

Sub creattable
	Dim SQL,tablename
	Tablename = Replace(Request.Form("tablename"),"'","''")
	If Tablename&"" = "" Then
		Successmsg " 请输入回帖表名称。"
	Else
		Sql="CREATE TABLE "&isforum&""&tablename&" ("&_
			"id int IDENTITY (1, 1) NOT NULL ,"&_
			"topicid int NOT NULL ,"&_
			"username varchar(255) NOT NULL ,"&_
			"content text NOT NULL ,"&_
			"posttime datetime Default "&SqlNowString&" NOT NULL ,"&_
			"postip varchar(255)  NOT NULL ,"&_
			"lock int NULL"&_
			")"
		team.execute(sql)
		team.Execute("insert into ["&isforum&"TableList] (TableName) values ('"&tablename&"')" )
	End if
	SuccessMsg "新回帖表建立成功，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=reforums>回帖表设置  </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=reforums>。 "
End Sub

Sub updatestb
	Dim tablename
	Tablename = Replace(Request.Form("tablename"),"'","''")
	If Tablename&"" = "" Then
		Successmsg " 请输入回帖表名称。"
	Else
		Cache.DelCache("club_class")
		team.execute("update ["&isforum&"Clubconfig] set ReForumName='"&Tablename&"'")
		Successmsg " 回帖表设置成功 ，请等待系统自动返回到 <a href=Admin_dbmake.asp?action=reforums>回帖表设置  </a> 页面 。<meta http-equiv=refresh content=3;url=Admin_dbmake.asp?action=reforums>。 "
	End if
End Sub

Sub reforums
	If IsSqlDataBase = 1 then
		Successmsg " <BR><BR><BR><div class=""a2"" style='height:50;width:80%'> <ul><BR><li>SQL版本无需设置回帖表。</li></ul></div>"
		Exit Sub
	End If
	%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
  <tr class="a1">
    <td>技巧提示</td>
  </tr>
  <tr class="altbg1">
    <td><br>
      <ul>
        <li>当回帖表数据大量增加时，会导致读取数据变慢，所以添加一个新的回帖表，可以有效加快速度。</li>
      </ul>
      <ul>
        <li> 使用ACCSEE数据库时，当数据库的容量大于100M以后，如果你发现就算添加更多的回帖表也不能显著改变速度，那么推荐您采用SQL数据库。</li>
      </ul></td>
  </tr>
</table>
<BR>
<form method="post" action="?action=updatestb">
  <table cellspacing="1" cellpadding="3" width="95%" border="0" class="a2" align="center">
    <tr>
      <td class="a1" colspan="4">回帖数据表管理 </td>
    </tr>
    <tr class="a3"  align="center">
      <td> 当前表名称 </td>
      <td> 数据量 </td>
      <td> 选定 </td>
      <td> 管理 </td>
    </tr>
    <%
			Dim Rs
			Set Rs=team.execute("select TableName from [TableList] ")
			Do While Not RS.EOF
				Echo " <tr class=""a4"" align=""center"">"
				Echo " <td bgcolor=""#FFFFFF""> "&RS(0)&"</td>"
				Echo " <td bgcolor=""#F8F8F8""> "&team.execute("Select count(id)from ["&RS(0)&"]")(0)&" </td>"
				Echo " <td bgcolor=""#FFFFFF""> <input type=""radio"" "
				if Ucase(Trim(team.Club_Class(11))) = Ucase(Trim(Rs(0))) then 
					Echo " CHECKED "
				End if
				Echo " value="&RS(0)&" name=""tablename""> </td><td bgcolor=""#F8F8F8""> "
				If Ucase(Trim(Rs(0)))=Ucase("Reforum") Then
					Echo "默认表不能删除"
				Else
					Echo " <a href=""?action=reforumdel&tablename="&RS(0)&""">删除</a> "
				End if
				Echo " </td></tr>"
			RS.MoveNext
		Loop
		Rs.close:Set Rs = Nothing
		%>
  </table>
  <br>
  <center>
    <input type="submit" name="exportsubmit" value="更 新">
  </center>
</form>
<form method="post" action="?action=creattable">
  <table cellspacing="1" cellpadding="3" width="95%" border="0" class="a2" align="center">
    <tr class="a4">
      <td class="a1" colspan="2"> 添加新的回帖表 </td>
    </tr>
    <tr class="a4">
      <td width="60%"><B>添加新的数据表：</B><br>
        填写你新的回帖表名称，新添加的回帖表名称不能与已经存在的回帖表名称相同，回帖表的名称推荐使用英文字母。</td>
      <td width="40%"><input type="text" size="30" name="tablename" value="newreforum"></td>
    </tr>
  </table>
  <br>
  <center>
    <input type="submit" name="exportsubmit" value="提 交">
  </center>
</form>
<%
End Sub


Sub runquery
	Dim Sqlstr
	Sqlstr=Request.Form("queries")
	If Sqlstr="" Then
		Successmsg("请输入sql执行语句!")
		Exit Sub
	End If
	On Error Resume Next
	Conn.Execute(Sqlstr)
	If Err Then
		Err.Clear
		Successmsg "您输入的sql语句有错误 。 <blockquote> "&Sqlstr&" </blockquote>"
	Else
		Successmsg " 成功执行SQL语句 。"
	End If
End Sub

Sub updates %>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<br>
<form method="post" action="?action=runquery">
  <table cellspacing="1" cellpadding="4" width="60%" align="center" class="a2">
    <tr class="a1">
      <td colspan="2">TEAM's 数据库升级 - 请将数据库升级语句粘贴在下面</td>
    </tr>
    <tr class="altbg1" align="center">
      <td valign="top"><textarea cols="85" rows="10" name="queries"></textarea>
        <br>
        <br>
        注意: 为确保升级成功，请不要修改 SQL 语句的任何部分。</td>
    </tr>
  </table>
  <br>
  <br>
  <center>
    <input type="submit" name="sqlsubmit" value="提 交">
  </center>
</form>
<br>
<br>
<%
End Sub

Sub Main	
	If IsSqlDataBase = 1 then
		Call SQLUserReadme()
		Exit Sub
	End If
%>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
  <tr class="a1">
    <td>技巧提示</td>
  </tr>
  <tr class="altbg1">
    <td><br>
      <ul>
        <li> 以下操作需要空间对FSO组件的支持，请查看<a href="Admin_Path.asp?action=discreteness"> <B>组件支持情况</B> </a>确认。</li>
      </ul>
      <ul>
        <li> 进行以下数据库的操作前必须先关闭论坛。</li>
      </ul>
      <ul>
        <li> 经常性的备份数据库可以有效防止因数据库损坏带来的影响（建议每个星期备份一次），备份数据库时必须修改默认的备份路径和备份文件名称，避免因采用默认数据库名称，而导致数据库被黑客下载，从而对密码进行破解的危险。</li>
      </ul>
      <ul>
        <li> 对数据库周期性的进行压缩，有效加快论坛的运行速度（建议每个月压缩一次） ，正确的压缩过程应该是先将数据库备份，然后对备份好的数据库进行压缩，压缩完成后再将压缩数据库还原为当前数据库。请勿将当前的数据库进行压缩，因为那样将存在损坏数据库的危险。 </li>
      </ul></td>
  </tr>
</table>
<BR>
<table cellspacing="1" cellpadding="3" width="95%" align="center">
  <tr>
    <td class="a2"><BR>
      <ul>
        <li> <FONt  COLOR="red">以下操作对数据库潜在危险性，操作失误将造成数据库的损坏，所以请在掌握相应的技巧后再对数据库进行设置。</FONt></li>
      </ul></td>
  </tr>
</table>
<BR>
<form method="post" action="?action=BakUserbf">
  <table cellspacing="1" cellpadding="3" width="95%" border="0" class="a2" align="center">
    <tr>
      <td class="a1" colspan="2">备份数据库 ( 需要FSO支持，FSO相关帮助请看微软网站 )</td>
    </tr>
    <tr class="a3">
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -