<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connfu.asp" --><!--#include file="ubbcode.asp" -->
<%
' *** Edit Operations: declare variables

MM_editAction = CStr(Request("URL"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) <> "") Then

  MM_editConnection = MM_connfu_STRING
  MM_editTable = "book2"
  MM_editRedirectUrl = "INDEX.ASP"
  MM_fieldsStr  = "name|value|pc|value|booID|value|message|value"
  MM_columnsStr = "book2title|',none,''|pc|',none,''|bookID|none,none,NULL|message|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(i+1) = CStr(Request.Form(MM_fields(i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For i = LBound(MM_fields) To UBound(MM_fields) Step 2
    FormVal = MM_fields(i+1)
    MM_typeArray = Split(MM_columns(i+1),",")
    Delim = MM_typeArray(0)
    If (Delim = "none") Then Delim = ""
    AltVal = MM_typeArray(1)
    If (AltVal = "none") Then AltVal = ""
    EmptyVal = MM_typeArray(2)
    If (EmptyVal = "none") Then EmptyVal = ""
    If (FormVal = "") Then
      FormVal = EmptyVal
    Else
      If (AltVal <> "") Then
        FormVal = AltVal
      ElseIf (Delim = "'") Then  ' escape quotes
        FormVal = "'" & Replace(FormVal,"'","''") & "'"
      Else
        FormVal = Delim + FormVal + Delim
      End If
    End If
    If (i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End if
    MM_tableValues = MM_tableValues & MM_columns(i)
    MM_dbValues = MM_dbValues & FormVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    session("redName")=Request.Form("Name")
    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim book__MMColParam
book__MMColParam = "1"
if (Request.Form("serch") <> "") then book__MMColParam = Request.Form("serch")
%>
<!--#include file="fso/color.asp" -->
<!--#include file="fso/con_pass.asp" -->
<!--#include file="fso/fso_set.asp" -->
<%
set book = Server.CreateObject("ADODB.Recordset")
book.ActiveConnection = MM_connfu_STRING
book.Source = "SELECT * FROM book WHERE name = '" + Replace(book__MMColParam, "'", "''") + "' ORDER BY ID DESC"
book.CursorType = 0
book.CursorLocation = 2
book.LockType = 3
book.Open()
book_numRows = 0
%>
<%
set book_re = Server.CreateObject("ADODB.Recordset")
book_re.ActiveConnection = MM_connfu_STRING
book_re.Source = "SELECT * FROM book2 ORDER BY ID ASC"
book_re.CursorType = 0
book_re.CursorLocation = 2
book_re.LockType = 3
book_re.Open()
book_re_numRows = 0
%>
<%
set newsok = Server.CreateObject("ADODB.Recordset")
newsok.ActiveConnection = MM_connfu_STRING
newsok.Source = "SELECT * FROM news"
newsok.CursorType = 0
newsok.CursorLocation = 2
newsok.LockType = 3
newsok.Open()
newsok_numRows = 0
%>
<%
set jumpbbs = Server.CreateObject("ADODB.Recordset")
jumpbbs.ActiveConnection = MM_connfu_STRING
jumpbbs.Source = "SELECT * FROM jumpbbs"
jumpbbs.CursorType = 0
jumpbbs.CursorLocation = 2
jumpbbs.LockType = 3
jumpbbs.Open()
jumpbbs_numRows = 0
%>
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_connfu_STRING
Recordset1.Source = "SELECT * FROM links ORDER BY ID ASC"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Dim Repeat1__numRows
Repeat1__numRows =T_NO
Dim Repeat1__index
Repeat1__index = 0
book_numRows = book_numRows + Repeat1__numRows
%>
<%
'JomoWeb c2001 nstrpt1
function JomoPrefix(rs, fldName)
dim str, strlen, whereloc, orderloc
str = rs.source
strlen = Len(str)
whereloc=InStr(str," WHERE ")
orderloc=InStr(str," ORDER BY ")
if orderloc = 0 and whereloc = 0 then 
  JomoPrefix = str & " WHERE " & fldName & " = "
else
  if whereloc = 0 then
  	JomoPrefix=Left(str,orderloc) & " WHERE " & fldName & " = "
  else
  	if orderloc = 0 then orderloc = strlen
  	JomoPrefix=Left(str,whereloc+6) &" ( " &  Mid(str, whereloc+7, orderloc - whereloc -6 ) & " )  AND " & fldName & " = "
  end if
end if
end function

function JomoPostfix(rs)
dim str, orderloc
str=rs.source
orderloc = InStr(str," ORDER BY ")
if orderloc = 0 then
  JomoPostfix = ""
else
JomoPostfix = " " & right(str, Len(str) - orderloc)
end if
end function
 %>
<% 
'JomoWeb c2001 nstrpt2
dim book_re_prefix, book_re_postfix
book_re_prefix = JomoPrefix(book_re, "bookID")
book_re_postfix=JomoPostfix(book_re)
 %>
<%


' set the record count
book_total = book.RecordCount

' set the number of rows displayed on this page
If (book_numRows < 0) Then
  book_numRows = book_total
Elseif (book_numRows = 0) Then
  book_numRows = 1
End If

' set the first and last displayed record
book_first = 1
book_last  = book_first + book_numRows - 1

' if we have the correct record count, check the other stats
If (book_total <> -1) Then
  If (book_first > book_total) Then book_first = book_total
  If (book_last > book_total) Then book_last = book_total
  If (book_numRows > book_total) Then book_numRows = book_total
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (book_total = -1) Then

  ' count the total records by iterating through the recordset
  book_total=0
  While (Not book.EOF)
    book_total = book_total + 1
    book.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (book.CursorType > 0) Then
    book.MoveFirst
  Else
    book.Requery
  End If

  ' set the number of rows displayed on this page
  If (book_numRows < 0 Or book_numRows > book_total) Then
    book_numRows = book_total
  End If

  ' set the first and last displayed record
  book_first = 1
  book_last = book_first + book_numRows - 1
  If (book_first > book_total) Then book_first = book_total
  If (book_last > book_total) Then book_last = book_total

End If
%>
<%
' *** Move To Record and Go To Record: declare variables

Set MM_rs    = book
MM_rsCount   = book_total
MM_size      = book_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  r = Request.QueryString("index")
  If r = "" Then r = Request.QueryString("offset")
  If r <> "" Then MM_offset = Int(r)

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  i = 0
  While ((Not MM_rs.EOF) And (i < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    i = i + 1
  Wend
  If (MM_rs.EOF) Then MM_offset = i  ' set MM_offset to the last possible record

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  i = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or i < MM_offset + MM_size))
    MM_rs.MoveNext
    i = i + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = i
    If (MM_size < 0 Or MM_size > MM_rsCount) Then MM_size = MM_rsCount
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  i = 0
  While (Not MM_rs.EOF And i < MM_offset)
    MM_rs.MoveNext
    i = i + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
book_first = MM_offset + 1
book_last  = MM_offset + MM_size
If (MM_rsCount <> -1) Then
  If (book_first > MM_rsCount) Then book_first = MM_rsCount
  If (book_last > MM_rsCount) Then book_last = MM_rsCount
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

' create the list of parameters which should not be maintained
MM_removeList = "&index=&god="
If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="
MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each Item In Request.QueryString
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each Item In Request.Form
  NextItem = "&" & Item & "="
  If (InStr(1,MM_removeList,NextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
if (MM_keepURL <> "")  Then MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 0) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    params = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For i = 0 To UBound(params)
      nextItem = Left(params(i), InStr(params(i),"=") - 1)
      If (StrComp(nextItem,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & params(i)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&"
urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="
MM_moveFirst = urlStr & "0"
MM_moveLast  = urlStr & "-1"
MM_moveNext  = urlStr & Cstr(MM_offset + MM_size)
prev = MM_offset - MM_size
If (prev < 0) Then prev = 0
MM_movePrev  = urlStr & Cstr(prev)
%>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>										
function DoWhiteSpace(str)												
	DoWhiteSpace = Replace((Replace(str, vbCrlf, "<br>")), chr(32)&chr(32), "&nbsp;&nbsp;")			
End Function														
</SCRIPT>
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>
<html>
<head>
<title><%=bbsName%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="涂鸦板，画图留言板，涂鸦论坛，paintbbs
 oekaki,技术论坛，提供下载。">
<link rel="stylesheet" href="fso/c.asp" type="text/css">
<script language="JavaScript">
<!--

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function YY_checkform() { //v4.02
  var args = YY_checkform.arguments; var myDot=true; var myV=''; var myErr='';var addErr=false;
  var myForm = MM_findObj(args[0]);
  for (var i=1; i<args.length;i=i+4){
    if (args[i+1].charAt(0)=='#'){var myReq=true; args[i+1]=args[i+1].substring(1);}else{myReq=false}
    var myObj = MM_findObj(args[i].replace(/\[\d+\]/ig,""));//eval(myForm+'.'+args[i]);
    myV=myObj.value;
    if (myObj.type=='text'||myObj.type=='password'){
      if (myReq&&myObj.value.length==0){addErr=true}
      if ((myV.length>0)&&(args[i+2]==1)){ //fromto
        if (isNaN(parseInt(myV))||myV<args[i+1].substring(0,args[i+1].indexOf('_'))/1||myV > args[i+1].substring(args[i+1].indexOf('_')+1)/1){addErr=true}
      }
      if ((myV.length>0)&&(args[i+2]==2)&&!myV.match("^[\\w\\.=-]+@[\\w\\.-]+\\.[a-z]{2,4}$")){addErr=true}// email
      if ((myV.length>0)&&(args[i+2]==3)){ // date
        var myD=''; myM=''; myY=''; myYY=0; myDot=true;
        for(var j=0;j<args[i+1].length;j++){
          var myAt = args[i+1].charAt(j);
          if(myAt=='D')myD=myD.concat(myObj.value.charAt(j));
          if(myAt=='M')myM=myM.concat(myObj.value.charAt(j));
          if(myAt=='Y'){myY=myY.concat(myObj.value.charAt(j)); myYY++}
          if(myAt=='-'&&myObj.value.charAt(j)!='-')myDot=false;
          if(myAt=='.'&&myObj.value.charAt(j)!='.')myDot=false;
          if(myAt=='/'&&myObj.value.charAt(j)!='/')myDot=false;
        }
        if(myD/1<1||myD/1>31||myM/1<1||myM/1>12||myY.length!=myYY)myDot=false;
        if(!myDot){addErr=true}
       }
      if ((myV.length>0)&&(args[i+2]==4)){ // time
        myDot=true;
        var myH = myObj.value.substr(0,myObj.value.indexOf(':'))/1;
        var myM = myObj.value.substr(myObj.value.indexOf(':')+1,2)/1;
                var myP = myObj.value.substr(myObj.value.indexOf(':')+3,2);
        if ((args[i+1])=="12:00pm"){if(myH<0||myH>12||myM<0||myM>59||(myP!="pm"&&myP!="am")||myObj.value.length>7)myDot=false;}
        if ((args[i+1])=="12:00"){if(myH<0||myH>12||myM<0||myM>59||myObj.value.length>5)myDot=false;}
        if ((args[i+1])=="24:00"){if(myH<0||myH>23||myM<0||myM>59||myObj.value.length>5)myDot=false;}
        if(!myDot){addErr=true}
      }
      if (myV.length>0&&args[i+2]==5){
            var myObj1 = MM_findObj(args[i+1].replace(/\[\d+\]/ig,""));
            if(!myObj1[args[i+1].replace(/(.*\[)|(\].*)/ig,"")].checked){addErr=true} // check this 2
          }
    }else
    if (!myObj.type&&myObj.length>0&&myObj[0].type=='radio'){
      if (args[i+2]==1&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
      if (args[i+2]==2){
        var myDot=false;
        for(var j=0;j<myObj.length;j++){myDot=myDot||myObj[j].checked}
        if(!myDot){myErr+='* ' +args[i+3]+'\n'}
      }
    }else
    if (myObj.type=='checkbox'){
      if(args[i+2]==1&&myObj.checked==false){addErr=true}
      if(args[i+2]==2&&myObj.checked&&MM_findObj(args[i+1]).value.length/1==0){addErr=true}
    }else
    if (myObj.type=='select-one'||myObj.type=='select-multiple'){
      if(args[i+2]==1&&myObj.selectedIndex/1==0){addErr=true}
    }else
    if (myObj.type=='textarea'){
      if(myV.length<args[i+1]){addErr=true}
    }
    if (addErr){myErr+='* '+args[i+3]+'\n'; addErr=false}
  }
  if (myErr!=''){alert('提交错误！\t\t\t\t\t\n\n'+myErr)}
  document.MM_returnValue = (myErr=='');
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}

function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
</head>
<body bgcolor="<%=web_bg%>" text="#000000" leftmargin="0" topmargin="0" background="<%=web_bgimg%>">
<table width="<%=ta_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> </td>
  </tr>
  <tr> 
    <td> 
      <div align="center"> 
        <table width="98%" border="0" cellspacing="5" cellpadding="0" align="center">
          <tr> 
            <td> 
              <%if biglogo <>"" then %>
              <a href="<%=HostUrl%>"><img src="<%=biglogo%>" border="0"></a> 
              <% end if %>
            </td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
  <tr> 
    <td height="25"> &nbsp;&nbsp;&nbsp; 
      <div align="right"> 
        <table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr> 
            <td width="24%"> 
              <div align="left"> 
                <select name="select4" onChange="MM_jumpMenu('parent',this,1)">
                  <option selected>请选择论坛</option>
                  <%
While (NOT jumpbbs.EOF)
%>
                  <option value="<%=(jumpbbs.Fields.Item("url").Value)%>" ><%=(jumpbbs.Fields.Item("name").Value)%></option>
                  <%
  jumpbbs.MoveNext()
Wend
If (jumpbbs.CursorType > 0) Then
  jumpbbs.MoveFirst
Else
  jumpbbs.Requery
End If
%>
                </select>
              </div>
            </td>
            <td width="76%"> 
              <div align="right"> <a href="oekaki.asp"><img src="news/Oekaki.gif" width="86" height="18" border="0" alt="使用oekakibbs涂鸦！"></a> 
                <a href="poobbs.asp"><img src="news/paintbbs.gif" width="86" height="18" border="0" alt="使用paintbbs涂鸦"></a>&nbsp; 
              </div>
            </td>
          </tr>
          <tr> 
            <td colspan="2">&nbsp;<marquee scrollamount=2><a href="javascript:;" onClick="MM_openBrWindow('news.asp','','width=500,height=500')"><%=(newsok.Fields.Item("title").Value)%></a></marquee></td>
          </tr>
        </table>
      </div>
    </td>
  </tr>
</table>
<table width="<%=ta_w%>" border="0" cellspacing="2" cellpadding="2" align="center" height="11">
  <tr valign="bottom"> 
    <td colspan="2" height="23"> 
      <div align="left"><a href="<%=HostUrl%>"><img src="news/home1.gif" width="55" height="18" border="0"></a> 
        <%if upload1="1" then %>
        <a href="upload_paint.asp"><img src="news/post.gif" width="55" height="18" border="0"></a> 
        <%end  if %>
        <%if upload1="0" then %>
        <a href="post.asp"><img src="news/post.gif" width="55" height="18" border="0"></a> 
        <%end  if %>
        <a href="help.htm"><img src="news/faq.gif" width="55" height="18" border="0"></a> 
        <a href="javascript:location.reload()"><img src="news/rf.gif" width="86" height="18" border="0"></a> 
        <a href="bbssize.asp" target="_blank"><img src="news/size.gif" width="86" height="18" border="0"></a> 
        <a href="fso/login.asp"><img src="news/bt.gif" width="86" height="18" border="0"></a> 
        &nbsp;&nbsp;</div>
    </td>
  </tr>
  <tr> 
    <td height="25"><font> <font size="2"> 
      <% browser = Request.ServerVariables("HTTP_USER_AGENT")%>
      版主：<%=DoWhiteSpace(youName)%> &nbsp;&nbsp;</font> </font></td>
    <td width="32%"> 
      <div align="right"><font><font size="2">每页<%=T_NO%> 条，共有<%=(book_total)%> 涂鸦</font></font></div>
    </td>
  </tr>
</table>
<table width="<%=ta_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <div align="right">页数: 
        <% 
Forward = "后30页"
Backward = "前30页"
Delimiter = " - "
Rec_Name = book_total
List_Num = 30
Godspeed = 1
if request.querystring("god") <> "" then 
Godspeed = request.querystring("god")
end if
if Godspeed <> 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">") 
Response.Write(Backward & "</a>  ")
end if
if Rec_Name < Godspeed + MM_Size * List_Num then
Matrix = Rec_Name
else
Matrix = Godspeed + MM_Size * (List_Num - 1) 
end if
if MM_size=0 then
   mm_size=1
end if

TM_counter = ( Godspeed - 1 )/MM_Size
For i = Godspeed to Matrix step MM_Size 
TM_counter = TM_counter + 1
if i <> MM_offset + 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
next
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
Response.Write("  <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">") 
Response.Write(Forward & "</a>")
end if
%>
      </div>
    </td>
  </tr>
  <tr> 
    <td width="15"></td>
  </tr>
</table>
<% 
While ((Repeat1__numRows <> 0) AND (NOT book.EOF)) 
%>
<table width="<%=ta_w%>" border="0" cellspacing="<%=ta_bor%>" cellpadding="0" align="center" bgcolor="<%=td_bor%>">
  <tr> 
    <td bgcolor="<%=titlebg%>" background="<%=title_img%>" height="20"> 
      <font color="<%=title_td%>"> 
      &nbsp; <img src="aaa.GIF" width="15" height="15"> <b>主题：<%=DoWhiteSpace(Server.HTMLEncode((book.Fields.Item("title").Value)))%></b> 
      <%pc=(book.Fields.Item("pc").Value)%>
      <%QQ=(book.Fields.Item("OICQ").Value)%>
      <%mail=(book.Fields.Item("MAIl").Value)%>
      </font> </td>
  </tr>
  <tr> 
    <td bgcolor="<%=bg_color%>" valign="top" background="<%=t_bgimg%>"> 
      <table width="97%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td colspan="2" height="30"><img src="back.gif" width="17" height="17"><b> 
            </b>大名: <%=DoWhiteSpace(Server.HTMLEncode((book.Fields.Item("name").Value)))%> &nbsp; 
            <%if book.Fields.Item("OICQ").Value <>"" then%>
            <a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=QQ%>" target="_blank"><img src="qq.gif" width="16" height="16" alt="QQ:<%=QQ%>" border="0"></a> 
            <% end if %>
            <%if book.Fields.Item("MAIL").Value <>"" then%>
            &nbsp; <a href="mailto:<%=mail%>" target="_blank"><img src="email.gif" width="18" height="18" border="0" alt="<%=mail%>"></a> 
            <%end if %>
            <%if book.Fields.Item("homepage").Value <>"" then%>
            &nbsp;<a href="<%= book.Fields.Item("homepage").Value%>" target="_blank"><img src="pt.gif" width="16" height="16" border="0" alt="<%=book.Fields.Item("homepage").Value%>"></a> 
            <%end if %>
            &nbsp;<img src="IP.GIF" width="16" height="16"> <%=pc%> &nbsp;&nbsp;<img src="msn-gray.gif" width="16" height="15"> 
            <%= DoDateTime((book.Fields.Item("time").Value), 2, 2052) %>&nbsp;&nbsp;<img src="boook.gif" width="16" height="16"> 
            <A HREF="all_user_p.ASP?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "name=" & book.Fields.Item("name").Value %>" title="查看<%=DoWhiteSpace(Server.HTMLEncode((book.Fields.Item("name").Value)))%>发表的所有帖子"><%=DoWhiteSpace(Server.HTMLEncode((book.Fields.Item("name").Value)))%>的所有作品</A></td>
        </tr>
        <tr> 
          <td width="41%" rowspan="2"> 
            <div align="left"> 
              <% pic=book.Fields.Item("imgsrc").Value %>
              <%if book.Fields.Item("upload").Value ="0" then  pic=book.Fields.Item("imgsrc").Value end if %>
              <%if book.Fields.Item("upload").Value ="1" then  pic="upload/" & book.Fields.Item("imgsrc").Value end if %>
              <%if book.Fields.Item("imgsrc").Value <>"" then %>
              <%if imgs="0"then %>
              <img border=0 src="<%=pic%>"> 
              <br>
              <%end if %>
              <%if imgs="1"then %>
              <a href="<%=pic%>" target="_blank"><img border=0 src="<%=pic%>" width="100" height="100" alt="放大浏览"></a> 
              <%end if %>
              <%if imgs="4"then %>
              <a href="<%=pic%>" target="_blank"><img border=0 src="<%=pic%>" width="150" height="150" alt="放大浏览"></a> 
              <%end if %>
              <%if imgs="2"then %>
              <a href="<%=pic%>" target="_blank"><img border=0 src="<%=pic%>" width="200" height="200" alt="放大浏览"></a> 
              <%end if %>
              <%if imgs="3"then %>
              <a href="<%=pic%>" target="_blank"><%=pic%></a> 
              <%end if %>
              <%end if %>
            </div>
          </td>
          <td width="59%" valign="top" align="right"> 
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="<%=re_tbg%>" height="12"> 
                  <div align="right"> <font color="<%=re_text%>"> 
                    </font><font color="<%=re_text%>"> 
                    </font><font color="<%=re_text%>"> 
                    <%if book.Fields.Item("upload").Value ="4" then %>
                    OekakiBBS 2.64</font><font color="<%=re_text%>"><a href="xiugai_1.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>"></a><b><a href="xiugai_oekaki.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>">&nbsp; 
                    Continue&nbsp;</a></b> <b><a href="playoeb.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>" target="_blank">Animation</a></b> 
                    <%end if %>
                    <%if book.Fields.Item("upload").Value ="1" then %>
                    <%if book.Fields.Item("imgsrc").Value <>"" then %>
                    <%end if %>
                    </font> <font color="<%=re_text%>"><b>Upload 
                    Image</b> </font><font color="<%=re_text%>"> 
                    <% end if %>
                    <%if book.Fields.Item("upload").Value ="0" then %>
                    BY PaintBBS</font>&nbsp; <font color="<%=re_text%>"> 
                    <b><A HREF="xiugai_1.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>">Continue&nbsp;</A></b></font><font color="<%=re_text%>"> 
                    <b><a href="play.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>" target="_blank">Animation</a></b> 
                    <%end if %>
                    </font> </div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="<%=re_bg%>"><img src="edit-gray.gif" width="13" height="15"> 
                  <%=ubbcode(DoWhiteSpace(Server.HTMLEncode((book.Fields.Item("message").Value))))%></td>
              </tr>
            </table>
            <%
'JomoWeb c2001 nstrpt3
if "book_re" <> "book" then
  book_re.close()
  if book.state = 1 then book_Fld = book("ID")
book_re.source = book_re_prefix & book_Fld & book_re_postfix
  book_re.open()
end if
while NOT book_re.EOF
 %>
            <table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td bgcolor="<%=re_tbg%>"> 
                  <div align="left"><font color="<%=re_text%>"> 
                    <img src="FOLDER.GIF" width="17" height="12"> 大名: <%= Server.HTMLEncode((book_re.Fields.Item("book2title").Value)) %> </font><font color="<%=re_text%>"> 
                    &nbsp;</font> 
                    <%if book_re.Fields.Item("QQ").Value <>"" then %>
                    <font color="<%=re_text%>"><a href="http://search.tencent.com/cgi-bin/friend/user_show_info?ln=<%=(book_re.Fields.Item("QQ").Value)%>" target="_blank"><img src="qq.gif" width="16" height="16" alt="QQ:<%=(book_re.Fields.Item("QQ").Value)%>" border="0"></a></font><font color="<%=re_text%>"> 
                    </font> 
                    <%end if %>
                    <%if book_re.Fields.Item("mail").Value <>"" then %>
                    <font color="<%=re_text%>"> 
                    <a href="mailto:<%=(book_re.Fields.Item("mail").Value)%>" target="_blank"><img src="email.gif" width="18" height="18" border="0" alt="<%=(book_re.Fields.Item("mail").Value)%>"></a></font> 
                    <%end if %>
                    <font color="<%=re_text%>"> 
                    </font> 
                    <%if book_re.Fields.Item("homepage").Value <>""then %>
                    <font color="<%=re_text%>"> 
                    <a href="<%=(book_re.Fields.Item("homepage").Value)%>" target="_blank"><img src="pt.gif" width="16" height="16" border="0" alt="<%=(book_re.Fields.Item("homepage").Value)%>"></a> 
                    </font> 
                    <%end if %>
                    <font color="<%=re_text%>"><img src="IP.GIF" width="16" height="16" alt="浏览器：<%=(book_re.Fields.Item("pc").Value)%>"> 
                    </font></div>
                </td>
              </tr>
              <tr> 
                <td bgcolor="<%=re_bg%>" height="24">&nbsp;&nbsp;&nbsp;&nbsp;<img src="edit-gray.gif" width="13" height="15"> 
                  <%=ubbcode(DoWhiteSpace(Server.HTMLEncode((book_re.Fields.Item("message").Value))))%></td>
              </tr>
            </table>
            <%
'JomoWeb c2001 nstrpt4
book_re.moveNext()
wend
 %>
          </td>
        </tr>
        <tr> 
          <td width="59%" valign="bottom" align="right"> 
            <%if fast_re="yes" then %>
            <form name="form1" method="POST" onsubmit="return checkvalue(this);" action="<%=MM_editAction%>">
              <table width="75%" border="0">
                <tr> 
                  <td width="53%"> 
                    <div align="right"><font color="#666666"><font color="#000000"><span class="samall"><font color="#333333"> 
                      <script language="javascript">
<!--  
  function checkvalue(theform)
  
{ if (theform.name.value == "" || theform.name.value.length < 1 || theform.name.value.length > 50)
{ alert("大名不能为空!");
  theform.name.focus();
  return false; }
  
  for (var i=0; i < theform.name.value.length; i++)
{ var pu=theform.name.value.substring(i,i+1)
      if (pu == '"' || pu == "'" || pu == "<" || pu == ">")
	  { alert("大名中有非法字符，请重新输入！");
	    theform.name.focus();
	    return false; }  }
  
  if (theform.message.value == "" || theform.message.value.length < 1 || theform.message.value.length > 1000)
{ alert("内容不能为空！");
  theform.message.focus();
  return false; }

  for (var i=0; i < theform.message.value.length; i++)
{ var pp=theform.message.value.substring(i,i+1)
      if (pp == '"' || pp == "'" || pp == "<" || pp == ">")
	  { alert("内容中有非法字符，请重新输入！");
	    theform.message.focus();
	    return false; }  }
		
  return true;
}
//-->
</script>
                      </font><font color="#666666"><font color="#000000"><span class="samall"><font color="#333333"> 
                      <script language="JavaScript">

          <!--

          function stopError() {
            return true;
          }

          window.onerror = stopError;

          // -->
          

</script>
                      </font></span></font></font></span></font></font>大名</div>
                  </td>
                  <td width="47%"> 
                    <input type="text" name="name" maxlength="50" size="23" value="<%=session("redName")%>">
                    <font color="#FF0000"> </font></td>
                </tr>
                <tr> 
                  <td width="53%"> 
                    <div align="right"> 
                      <input type="hidden" name="pc" value="<%=pc%>">
                      <input type="hidden" name="booID" value="<%=(book.Fields.Item("ID").Value)%>">
                      内容</div>
                  </td>
                  <td width="47%"> 
                    <textarea name="message" style="overflow:auto;" cols="22" rows="3"></textarea>
                  </td>
                </tr>
                <tr> 
                  <td width="53%">&nbsp;</td>
                  <td width="47%"> 
                    <input type="submit" name="Submit4" OnClick="this.disabled=true;document.PostTopic.submit();value="快速回复 value="回复"">
                    <input type="reset" name="Submit5" value="取消">
                  </td>
                </tr>
              </table>
              <input type="hidden" name="MM_insert" value="true">
            </form>
            <%end if %>
            <a href="re.asp?<%= MM_keepNone & MM_joinChar(MM_keepNone) & "ID=" & book.Fields.Item("ID").Value %>"><img src="news/reply.gif" width="86" height="18" border="0"></a> 
          </td>
        </tr>
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  book.MoveNext()
Wend
%>
<%if ubb=1 then %>
<table width="<%=ta_w%>" border="0" cellspacing="<%=ta_bor%>" cellpadding="" align="center" bgcolor="<%=td_bor%>">
  <tr> 
    <td height="17" bgcolor="<%=titlebg%>"><font color="<%=title_td%>"> 
      论坛联盟：</font></td>
  </tr>
  <tr> 
    <td background="<%=t_bgimg%>" bgcolor="<%=bg_color%>" height="20"> 
      <table width="90%" align="center" cellpadding="3" cellspacing="3">
        <%
startrw = 0
endrw = HLooper1__index
numberColumns = 5
numrows = -1
while((numrows <> 0) AND (Not Recordset1.EOF))
	startrw = endrw + 1
	endrw = endrw + numberColumns
 %>
        <tr align="center" valign="top"> 
          <%
While ((startrw <= endrw) AND (Not Recordset1.EOF))
%>
          <td> 
            <div align="left"><a href="<%=(Recordset1.Fields.Item("url").Value)%>" target="_blank"><img src="<%=(Recordset1.Fields.Item("logourl").Value)%>" border="0" alt="<%=(Recordset1.Fields.Item("jieshao").Value)%>"> 
              </a></div>
          </td>
          <%
	startrw = startrw + 1
	Recordset1.MoveNext()
	Wend
	%>
        </tr>
        <%
 numrows=numrows-1
 Wend
 %>
      </table>
    </td>
  </tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
<%end if %>
<table width="<%=ta_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 
      <form name="form2" method="post" action="serch.asp">
        <div align="right">留言查询 （作者名）： 
          <input type="text" name="serch">
          <input type="submit" name="Submit2" value="查询" onClick="YY_checkform('form2','serch','#q','0','请输入你要查询的（作者名）！');return document.MM_returnValue">
          &nbsp;&nbsp; 论坛跳转 
          <select name="select3" onChange="MM_jumpMenu('parent',this,1)">
            <option selected>请选择论坛</option>
            <%
While (NOT jumpbbs.EOF)
%>
            <option value="<%=(jumpbbs.Fields.Item("url").Value)%>" ><%=(jumpbbs.Fields.Item("name").Value)%></option>
            <%
  jumpbbs.MoveNext()
Wend
If (jumpbbs.CursorType > 0) Then
  jumpbbs.MoveFirst
Else
  jumpbbs.Requery
End If
%>
          </select>
        </div>
      </form>
    </td>
  </tr>
</table>
<table width="<%=ta_w%>" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td> 页数: 
      <% 
Forward = "后30页"
Backward = "前30页"
Delimiter = " - "
Rec_Name = book_total
List_Num = 30
Godspeed = 1
if request.querystring("god") <> "" then 
Godspeed = request.querystring("god")
end if
if Godspeed <> 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">") 
Response.Write(Backward & "</a>  ")
end if
if Rec_Name < Godspeed + MM_Size * List_Num then
Matrix = Rec_Name
else
Matrix = Godspeed + MM_Size * (List_Num - 1) 
end if
if MM_size=0 then
   mm_size=1
end if

TM_counter = ( Godspeed - 1 )/MM_Size
For i = Godspeed to Matrix step MM_Size 
TM_counter = TM_counter + 1
if i <> MM_offset + 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
next
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
Response.Write("  <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">") 
Response.Write(Forward & "</a>")
end if
%>
    </td>
  </tr>
</table>
<table width="<%=ta_w%>" align="center" cellspacing="1" cellpadding="1" border="0">
  <tr> 
    <td height="25" valign="bottom"> 
      <div align="right">版权所有：<a href="<%=HostUrl%>"><%=hostName%></a></div>
    </td>
  </tr>
  <tr> 
    <td> 
      <div align="right">PooBBS Program：<a href="http://ice.7i24.com/">PooBBS 
        VER 3.72</a></div>
    </td>
  </tr>
  <tr> 
    <td> 
      <div align="right">Oekaki Program：<a href="http://www.lfgbox.com" target="_blank">LFG 
        BOX</a></div>
    </td>
  </tr>
  <tr> 
    <td> 
      <div align="right">Java Program (java)：<a href="<%=jphttp%>" target="_blank"><%=jp1%></a></div>
    </td>
  </tr>
  <tr> 
    <td> 
      <div align="right"></div>
    </td>
  </tr>
</table>
<div align="center"><br>
  <%coco=1%>
  <%if coco="3" then %>
  尊重劳动成果,请不要删除v3.7版权 
  <% end if %>
  <a name="end"></a></div>
</body>
</html>
<%
book.Close()
%>
<%
book_re.Close()
%>

<%
newsok.Close()
%>
<%
jumpbbs.Close()
%>
<%
Recordset1.Close()
%>
