20CN网络安全小组论坛 - 编程破解

论坛: 编程破解标题: 请教高手！

作者: venus [venus]

论坛用户

我下载了一个论坛程序，帮助说要先设定论坛，我不知道要怎么样设定，所以请高手指点！
多谢！
是不是这个ASP文件呢？
望告之！
非常感谢！

我是一只菜鸟，但是我并不灰心，因为我的后面有我的亲人、朋友和你们这些前辈在支持着我，我坚信，在不久的将来我一定会成为一只大鸟的！
=☆☆==☆☆==☆☆==☆☆==☆☆=
[GALAXY.]_Venus@<<<
爱上我真的不是你的错！^_^
但是爱的不深真的是你的不应该了！
GALAXYTEAM VICTORY FOREVER！
QQ:26980059
E-mail:sensen19830520@163.com http://www.galaxyvfe.126.com
=☆☆==☆☆==☆☆==☆☆==☆☆=


<%
if not CheckAdmin(0,"")="true" then Response.Redirect("../userlogin.asp")
action= cstr(request("action"))
IF action <> "" then
Cat_Name =request("Cat_Name")
Cat_xh =request("Cat_xh")
Forum_Cat=request("Forum_Cat")
Cat_ID =request("Cat_ID")
Forum_ID =request("Forum_ID")
ForumName =request("ForumName")
ForumInfo =request("ForumInfo")
end if
nowtime=now()
select case action
case "Add_Forum"
SQL = "INSERT INTO Forum_List(CAT_ID,ForumName,ForumInfo)VALUES('"&Cat_ID&"','"&ForumName&"','"&ForumInfo&"')"
case "add_cat"
SQL = "INSERT INTO Forum_Category(CAT_Name,CAT_xh)VALUES('"&Cat_Name&"','"&Cat_xh&"')"
case "upmove_Cat"
SQL = "UPDATE Forum_Category set Cat_date='" & nowtime & "' where Cat_ID="&Cat_ID
case "del_Cat"
SQL = "Delete from Forum_Category where Cat_ID="&Cat_ID
case "del_forum"
SQL = "delete from Forum_List where Forum_ID="&Forum_ID
case "up_forum"
SQL = "UPDATE Forum_List set ForumName='"&ForumName&"',ForumInfo='"&ForumInfo&"' where Forum_ID="&Forum_ID
case "upmove_forum"
SQL = "UPDATE Forum_List set [Date]='" & nowtime & "' where Forum_ID="&Forum_ID
case "up_cat"
SQL = "UPDATE Forum_Category set CAT_Name='"&CAT_Name&"' where Cat_ID="&Cat_ID
case "move_forum"
SQL = "UPDATE Forum_List set Cat_ID="&Cat_ID&" where Forum_ID="&Forum_ID
end select
if action<>"" and sql<>"" then
conn.Execute(sql)
end if
%>
<html>
<head>
<title>设定班主</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../styles.css" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">

<form name="add_cat" method="post" action="setforum.asp">
  <select name="Cat_ID" class="bk">
    <option value="0" selected>请选择主分类</option>
    <%
set CatA = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_Category"
CatA.open sql,conn,1,1
while not CatA.eof
%>
<option value="<%=CatA("Cat_ID")%>"><%=CatA("Cat_Name")%></option>
<%
CatA.movenext
wend
CatA.Close()
%>
</select>
<input type="text" name="Cat_Name">
  <input type="submit" name="Submit" value="应用">
  <br>
  <input type="radio" name="action" value="add_cat">
  添加分类
<input type="radio" name="action" value="up_cat">
  修改分类
  <input type="radio" name="action" value="del_Cat">
  删除分类
  <input type="radio" name="action" value="upmove_Cat">
  向上移动分类
</form>
<hr>
<form name="Add_Forum" method="post" action="setforum.asp">
  <select name="Cat_ID" class="bk">
    <option value="0" selected>请选择主分类</option>
    <%
set Cat = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_Category"
Cat.open sql,conn,1,1
while not Cat.eof
%>
<option value="<%=Cat("Cat_ID")%>" ><%=Cat("Cat_Name")%></option>
<%
Cat.movenext
wend
Cat.Close()
%>
</select>
  <select name="Forum_ID" class="bk">
    <option value="0" selected>请选择论坛</option>
    <%
set Forum_List = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_List"
Forum_List.open sql,conn,1,1
while not Forum_List.eof  %>
    <option value="<%=Forum_List("Forum_ID")%>" ><%=Forum_List("ForumName")%></option>
    <%
Forum_List.movenext
wend
Forum_List.Close()
%>
  </select>
  <br>
<input type="radio" name="action" value="Add_Forum">添加论坛
<input type="radio" name="action" value="up_forum">修改论坛
<input type="radio" name="action" value="del_forum">删除论坛
<input type="radio" name="action" value="move_forum">
  移动论坛
  <input type="radio" name="action" value="upmove_forum">
  向上移动论坛位置<br>
  <input type="text" name="ForumName">
  <input type="submit" name="Submit" value="应用">
  <br>
  <textarea name="ForumInfo" cols="60" rows="6" wrap="VIRTUAL"></textarea>
</form><hr>
<form name="form1" method="post" action="editforumconfig.asp">
  <select name="Forum_ID" class="bk">
    <option value="0" selected>主体论坛样式</option>
    <%
set Forum_List = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_List"
Forum_List.open sql,conn,1,1
while not Forum_List.eof  %>
    <option value="<%=Forum_List("Forum_ID")%>" ><%=Forum_List("ForumName")%></option>
    <%
Forum_List.movenext
wend
Forum_List.Close()
%>
  </select>
  <input type="submit" name="Submit2" value="设置论坛样式">
</form>
</body>
</html>
<%
set Forum_Cat = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_Category ORDER BY CAT_Date ASC"
Forum_Cat.open sql,conn,1,1
Forum_Cat_Arr="dim cat_count("&cstr((Forum_Cat.RecordCount)-1)&",1)"
Forum_Cat.close()
set Forum_List = Server.CreateObject("ADODB.Recordset")
sql = "SELECT * FROM Forum_List ORDER BY DATE DESC"
Forum_List.open sql,conn,1,1
Forum_List_Arr="dim Forum_count("&cstr((Forum_List.RecordCount)-1)&",3)"
if Forum_List_Arr=-1 then Forum_List_Arr="response.write ""还未添加论坛"""&vbcrlf&"response.end"
Forum_List.close()

Set fobj = CreateObject("Scripting.FileSystemObject")
Set fs = fobj.CreateTextFile(nPath&"forum_index_count.asp",true)
fs.Write("<"&chr(37))
fs.Write(Forum_Cat_Arr)
fs.Write(chr(13)&chr(10))
fs.Write(Forum_List_Arr)
fs.Write(chr(37)&">")
fs.close
%>

地主发表时间: 07/02 17:29

回复: genius_li [genius_li]

论坛用户

要设定也很简单，如果你是win98，你要装上PWS，它在正版98的ad-ones这个目录下安装好后有个默认服务器目录，然后把你的聊天室拷到这个目录下面，用浏览器打开你刚才的文件就行了。如果是win2000那要装上IIS5.0 才行，后面的设置都一样。你自己试试吧。

B1层发表时间: 08/03 18:55

论坛: 编程破解