留言板

<%@ Language=VBScript %> <% Option Explicit %> <% Function GetRes(onid,level,cnt,pid) Dim Res, sqlstr Dim nid,id,name,city,career,company,email,subject,msg,etime,ip Dim dnt Dim ps ps=5 'Set Res = Server.CreateObject("ADODB.Recordset") 'sqlstr = "SELECT * FROM BulletinBoard" 'Res.open sqlstr, conn, 3, 3 Dim SQLCmd set Res = Server.CreateObject("ADODB.Recordset") SQLCmd= "SELECT * from BulletinBoard Where nid="& onid &"And status=1 Order by etime desc" 'Response.Write SQLCmd & "
" Res.Open SQLCmd,conn,3,3 If Not(Res.EOF) Then If onid=0 Then Dim p, total, linenow, pagedesc p=CInt(Request("p")) If p=0 Then p=1 End If Res.PageSize=ps Res.AbsolutePage=p total = Res.PageCount pagedesc= "

" If p<>1 Then pagedesc= pagedesc+ "第一頁　" pagedesc= pagedesc+ "上一頁　" End If If p <> total Then pagedesc= pagedesc+ "下一頁　" pagedesc= pagedesc+ "最後一頁　" End If Dim i pagedesc= pagedesc+"到第頁,共"& total &"頁

" Response.Write pagedesc linenow=(p-1)*ps cnt=linenow End If Do While Not Res.EOF If onid=0 Then cnt=cnt+1 : dnt=0 : pid=Res.Fields("id").Value Response.Write "" Response.Write "

" Response.Write " "& cnt &" "& Res.Fields("name").Value If Not(IsNull(Res.Fields("email").Value)) Then Response.Write "" End If Response.Write ""& Res.Fields("etime").Value &"" Response.Write "

Subject:"& Res.Fields("subject").Value &" " Response.Write "

"& vbCrLf Response.Write "

"& Res.Fields("msg").Value &"

"& vbCrLf Response.Write "

" If session("Login")=1 Then Response.Write "刪除此留言 "& vbCrLf Response.Write "編輯此留言 "& vbCrLf End If Response.Write "張貼新留言 " Response.Write "回應此留言

"& vbCrLf Response.Write "

" Else dnt=dnt+1 Response.Write "" Response.Write "
" Response.Write " 回應"& dnt &"： "& Res.Fields("name").Value If Not(IsNull(Res.Fields("email").Value)) Then Response.Write "" End If Response.Write Server.HTMLEncode(Res.Fields("etime").Value) &"" Response.Write " Subject:"& Res.Fields("subject").Value &" " Response.Write "
"& vbCrLf Response.Write "
"& Res.Fields("msg").Value &"
"& vbCrLf Response.Write "
" If session("Login")=1 Then Response.Write "刪除此留言 "& vbCrLf Response.Write "編輯此留言 "& vbCrLf End If Response.Write "張貼新留言 " Response.Write "回應此留言
"& vbCrLf Response.Write "

" End If GetRes Res("id"),level+1,dnt,pid If cnt>linenow+ps-1 And onid=0 Then Exit Do Else Res.MoveNext End If Loop Res.close Set Res = Nothing Response.Write Replace(pagedesc,"form1","form2",1,1) Else If onid=0 Then Response.Write "

目前沒有留言
" Response.Write "張貼新留言 " End If End If End Function Dim aid If Request("id")<>"" Then aid = CInt(Request("id")) Set Res = Server.CreateObject("ADODB.Recordset") sqlstr = "SELECT * FROM BulletinBoard Where id=" & aid Res.open sqlstr, conn, 3, 3 Res("status") = CInt(Request("status")) Res.Update Res.Close End If %> 留言板

<% GetRes 0,0,0,0 %>

台北市萬華區大理街132號│TEL:02-2306-5297│FAX:02-2306-7783│留言管理區