<!--#INCLUDE FILE="programmer.inc"-->
<!--#INCLUDE FILE="conn.asp"-->
<!-- #include file="function_charCode.asp" -->
<!-- #include file="function.asp" -->
<!-- #include file="comsub.asp" -->
<script src=inc/js1.js></script>
<script src=inc/js2.js></script>
<!-- #include file="FriendOE.asp" -->
<%
call bbsClose()
call stylefile()
call newmessage()
Dim id
id=Request("id")
Function authBoard(artId)
Dim SQL,RS
Set RS=server.createobject("ADODB.RECORDSET")
SQL = "SELECT authentication FROM board where boardid=" & artId
RS.open SQL,conn
authBoard = RS("authentication")
RS.close
Set RS=Nothing
End Function
Function autSelBoard(artId)
Dim SQL,RS
Set RS=server.createobject("ADODB.RECORDSET")
SQL = "SELECT autSel FROM board where boardid=" & artId
RS.open SQL,conn
autSelBoard= RS("autSel")
RS.close
Set RS=Nothing
End Function
Function hidBoard(artId)
Dim SQL,RS
Set RS=server.createobject("ADODB.RECORDSET")
SQL = "SELECT boardhidden FROM board where boardid=" & artId
RS.open SQL,conn
hidBoard= RS("boardhidden")
RS.close
Set RS=Nothing
End Function
Function hidCommu(artId)
Dim SQL,RS
Set RS=server.createobject("ADODB.RECORDSET")
SQL = "SELECT CommunityHidden FROM community where id=" & artId
RS.open SQL,conn
hidCommu= RS("CommunityHidden")
RS.close
Set RS=Nothing
End Function
Dim rs,sql
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from article where trim(Cstr(ID))='"&id&"'"
sql=sql+" order by id Asc"
rs.open sql,conn,1,2
Dim read
read=rs("ReadCount")
If Request.QueryString("replyPage")="" Then
read=read+1
End If
rs("ReadCount")=read
rs.Update
If rs("adminindex")=False And rs("topfirst")=False And rs("top1")=False Then
If authBoard(rs("boardid")) Then
If session("tslt_username")="" Or (authUser()=False And session("tslt_useridentity")<>3 And session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2) Then
Call error_Exit()
End If
End If
If autSelBoard(rs("boardid")) Then
If session("tslt_username")="" Or (session("tslt_useridentity")<>3 And session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2) Then
Call error_Exit()
End If
End If
If hidBoard(rs("boardid")) Then
If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
Call error_Exit()
End If
End If
If hidCommu(rs("Communityid")) Then
If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
Call error_Exit()
End If
End If
If rs("dustbin") Then
If session("tslt_useridentity")<>1 And session("tslt_useridentity")<>2 Then
Call error_Exit()
End If
End If
End If
%>
<html>
<head>
<%call MetaKeyw()%>
<%call MetaDesc()%>
<title><%=rs("subject")%></title>
</head>
<body topmargin=0>
<SCRIPT language=JavaScript>
<!--
function go_modifynow(src,q){
var ret;
ret = confirm(q);
if(ret!=false)window.location=src;
}
function go(src,q){
var ret;
ret = confirm(q);
if(ret!=false)
{
open(src,'','resizable=no,width=320,height=280,top=200,left=340');
this.location.reload();
}
}
function go2(src){
open(src,'','resizable=no,width=320,height=280,top=200,left=340');
this.location.reload();
}
function OpenModifyReplyWin(formRM){
formRM.submit();
this.location.reload();
}
function showsubmenu(sid){
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
function showsubmenureply(sid){
whichEl = eval("submenureply" + sid);
if (whichEl.style.display == "none")
{
eval("submenureply" + sid + ".style.display=\"\";");
}
else
{
eval("submenureply" + sid + ".style.display=\"none\";");
}
}
function doSubmit(){
if (document.replycontentform.replytitle.value=="")
{
alert("回复主题不能为空！");
document.replycontentform.replytitle.focus();
return false;
}
if (document.replycontentform.replycontent2)
{
if (document.replycontentform.replycontent2.value=="")
{
alert("内容不能为空！");
document.replycontentform.replycontent2.focus();
return false;
}
}
else
{
if (eWebEditor2.getHTML()=="")
{
alert("内容不能为空！");
return false;
}
}
document.replycontentform.submit();
}
function submenu_mr(sid){
whichEl = eval("submenu_mr" + sid);
if (whichEl.style.display == "none")
{
eval("submenu_mr" + sid + ".style.display=\"\";");
}
else
{
eval("submenu_mr" + sid + ".style.display=\"none\";");
}
}
function celerity_Submit(){
if (document.celerityReplyForm.celerityReplyContent2)
{
if (document.celerityReplyForm.celerityReplyContent2.value=="")
{
alert("内容不能为空！");
document.celerityReplyForm.celerityReplyContent2.focus();
return false;
}
}
else
{
if (celerity_eWebEditor.getHTML()=="")
{
alert("内容不能为空！");
return false;
}
}
document.celerityReplyForm.submit();
}
-->
</Script>
<table border=0 width=100% cellspacing=0 cellpadding=1>
<tr>
<td width=100 height="67" bgcolor=greenyellow>
<img border="0" src="images/tushan2.gif" width="100" height="65" align=middle vspace=0 hspace=0>
</td>
<td rowspan=2 bgcolor=dodgerblue>
<a href=advertisement/11ad/top.htm target="new">
<%
set objad=server.createobject("mswc.adrotator")
response.write objad.getadvertisement("advertisement/11ad/topadrot.txt")
set objad=nothing
%>
</a>
</td>
</tr>
<tr>
<td height="6" bgcolor=dodgerblue>
</td>
</tr>
</table>
<table border=0 width=20% align=left cellspacing="1" cellpadding="1">
<tr height=60>
<td bgcolor=dodgerblue>
<a href=advertisement/11ad/left1.htm target="new">
<%
set objad=server.createobject("mswc.adrotator")
response.write objad.getadvertisement("advertisement/11ad/leftadrot1.txt")
set objad=nothing
%>
</a>
</td>
</tr>
<tr height=10>
<td>
</tr>
<tr height=60>
<td bgcolor=dodgerblue>
<a href=advertisement/11ad/left2.htm target="new">
<%
set objad=server.createobject("mswc.adrotator")
response.write objad.getadvertisement("advertisement/11ad/leftadrot2.txt")
set objad=nothing
%>
</a>
</td>
</tr>
<tr height=10>
<td>
</tr>
<tr hei
涂山论坛ASP免费版
需积分: 10 12 浏览量
2007-11-01
08:47:26
上传
评论
收藏 2.74MB RAR 举报
涂山论坛ASP免费版 （892个子文件） 
Global.asa 2KB 11.asp 102KB index.asp 65KB board.asp 64KB community.asp 62KB BPartQuer.asp 42KB sitenote.asp 42KB enduemanage.asp 34KB myUBB.asp 31KB collectionA.asp 30KB comSub.asp 28KB aFunction_charCode.asp 28KB progress.asp 26KB function_charCode.asp 26KB fbly.asp 23KB 11_transact.asp 22KB admin.asp 22KB function.asp 22KB manageuser.asp 20KB upload.asp 19KB index2.asp 18KB aueUser.asp 17KB palLink.asp 17KB userlogin.asp 17KB DoClear.asp 17KB friend.asp 16KB sleepuser.asp 16KB ScoreRoom.asp 16KB manageid.asp 16KB 11_Delreply.asp 15KB rfd_handle.asp 15KB function.asp 15KB config.asp 14KB zc.asp 14KB wy.asp 13KB ad_menu.asp 12KB qollar.asp 11KB sitenotehandle.asp 11KB md5.asp 11KB sidemenu.asp 11KB bm_modify.asp 10KB ReplyListPage.asp 9KB database.asp 9KB modify.asp 9KB rfd.asp 8KB f2.ASP 8KB bottom_inc.asp 8KB FriendOE.asp 8KB RevertDUF.asp 8KB ad_function.asp 7KB bm.asp 7KB bulletin.asp 6KB bottom_inc.asp 6KB community_delete.asp 6KB bm_delete.asp 6KB f4.ASP 6KB BottomB_inc.asp 6KB community_manage.asp 6KB BottomB.asp 6KB aFun_CC_chat.asp 5KB bottom.asp 5KB bottom.asp 5KB bm_create.asp 4KB ModifyPW.asp 4KB upfileclass.asp 4KB community_modify.asp 4KB getbackPW.asp 4KB bbsopen.asp 3KB error.asp 3KB ImgVCode.asp 3KB upload.asp 3KB ad_comSub.asp 3KB OpenVC.asp 2KB OpenEWeb.asp 2KB OpenLogin.asp 2KB f3.ASP 2KB f5.ASP 2KB add_form.asp 2KB Function.asp 2KB setmode.asp 1KB whole.asp 1KB aFun_CC_wyl.asp 919B conn.asp 914B conn.asp 909B index_Frame.asp 836B showimage.asp 802B error.asp 778B DatabaseUpdate.asp 624B qollar.asp 622B ad_index.asp 610B logout.asp 484B exit.asp 441B exit2.asp 420B login.asp 407B byfile.asp 379B index.asp 355B wyconn.asp 309B conn.asp 309B showimage.asp 298B f1.asp 205B共 892 条
- 1
- 2
- 3
- 4
- 5
- 6
- 9
资源评论
