<% User = Request("User") Pwd = Request("Pwd") Page = Request("Page") Set conn = Server.CreateObject("ADODB.Connection") DBPath = Server.MapPath("Data.mdb") conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath If User = "" And Pwd = "" Then Else If User = Master Then If Pwd = Password Then IPView = True Link = "?User=" & User & "&Pwd=" & Pwd DDD = "&User=" & User & "&Pwd=" & Pwd Else Response.Write "

Error! You are not the admin!

" Response.End End If Else Response.Write "

Error! You are not the admin!

" Response.End End If End If If Page = "" Then Page = 1 End If Set rs = Server.CreateObject("ADODB.Recordset") rs.Open "Select * From GuestBook Where Re = '0' Order By AddDate DESC", conn, 3 If rs.EOF Then NoJump = True Hr = "

No Message...
" Else Hr = "

" Hr1 = "

" rs.PageSize = 5 rs.AbsolutePage = Page If rs.AbsolutePage > rs.PageCount Then rs.AbsolutePage = 1 End If For i = 1 to rs.PageSize No = rs("Number") Email = rs("EMail") HomePage = rs("WebURL") Name = rs("Name") Subj = rs("Subj") Sex = rs("Sex") Job = rs("Job") Face = rs("Face") Fc = rs("Fc") Rights = rs("Rights") IP = rs("IP") MemoTime = rs("AddDate") Name = Replace(Name,"<","<") Name = Replace(Name,">",">") HomePage = Replace(HomePage,"<","<") HomePage = Replace(HomePage,">",">") Email = Replace(Email,"<","<") Email = Replace(Email,">",">") If Rights = "0" Then If User = "" And Pwd = "" Then A1 = "" A2 = "" B1 = "" ReButton = "" Place = "" Memo = "Private Message to Admin" Else A1 = "" A2 = "" B1 = "&User=" & User & "&Pwd=" & Pwd Place = "" ReButton = "" Memo = rs("Data") If Faceview Then Faceimg = "" End If If Not HTML Then Memo = Replace(Memo,"<","<") Memo = Replace(Memo,">",">") End If End If Else Place = "" ReButton = "[ Reply ]" Memo = rs("Data") If Faceview Then Faceimg = " " End If If Not HTML Then Memo = Replace(Memo,"<","<") Memo = Replace(Memo,">",">") End If Set rs1 = Server.CreateObject("ADODB.Recordset") rs1.Open "Select * From GuestBook Where Re = '" & No & "' Order By AddDate", conn, 3 If Not rs1.EOF Then For a = 1 to rs1.RecordCount If rs1("Sex") = "M" Then ReGif = "s1.gif" Ncolor = Mancolor Else ReGif = "s2.gif" Ncolor = Girlcolor End If If Not HTML Then Data = Replace(rs1("Data"),"<","<") Data = Replace(Data,">",">") End If ReColor = rs1("ReColor") ReTab = ReTab & chr(13) & chr(10) & "
 " & rs1("Name") & " Reply:
" & Replace(rs1("Data"),chr(13) & chr(10),"
") & "

" rs1.MoveNext Next Else ReTab = "" End If rs1.Close End If Memo = Replace(Memo,"

","&lt;xmp&gt;") Memo = Replace(Memo,"<Xmp>","&lt;Xmp&gt;") Memo = Replace(Memo,"<xMp>","&lt;xMp&gt;") Memo = Replace(Memo,"<xmP>","&lt;xmP&gt;") Memo = Replace(Memo,"<XmP>","&lt;XmP&gt;") Memo = Replace(Memo,"<XMp>","&lt;XMp&gt;") Memo = Replace(Memo,"<xMP>","&lt;xMp&gt;") Memo = Replace(Memo,"<XMP>","&lt;XMP&gt;") Memo = Replace(Memo,chr(13) & chr(10),"<BR>") If Email = "No" Then Email = "Email" Else Email = "<A HREF='mailto:" & Email & "'>Email</A>" End If If HomePage = "http://" Or HomePage = "" Then HomePage = "Home" Else HomePage = "<A HREF='" & HomePage & "' target=_blank'>Home</A>" End If If IPView = True Then IPBar = "<font size='2' color=538dc7>Hideen IP [" & IP & "]</font>" Else IPBar = "" End If If Sex = "M" Then Sex = "Male" Else Sex = "Female" End If If User = "" And Pwd = "" Then A1 = "" A2 = "" B1 = "" Else A1 = "<A HREF='Editor.asp?User=" & User & "&Pwd=" & Pwd & "&No=" & No & "'>" A2 = "</A>" B1 = "&User=" & User & "&Pwd=" & Pwd End If tab = tab & "<div align='center'><center><table height='0' cellSpacing='0' cellPadding='0' width='300' border='0'><tr>" tab = tab & "<td align='center' valign='top'><table height='0' cellSpacing='0' cellPadding='0' border='0' width='95'><tr>" tab = tab & "<td align='center' width='80'><p align='center'>" & Faceimg & "</td></tr></table></td>" tab = tab & "<td align='center'><table height='0' cellSpacing='0' cellPadding='0' width='300' border='0'><tr><td width='8' height='8'><img src='f1.gif'></td>" tab = tab & "<td width='378' background='f2.gif' colSpan='4' height='8'></td>" tab = tab & "<td width='8' height='8' style='font-size: 9pt; line-height: 160%'><img src='f3.gif'></td></tr><tr>" tab = tab & "<td width='8' background='f4.gif' height='102' rowSpan='5' style='font-size: 9pt; line-height: 160%'></td>" tab = tab & "<td width='378' colSpan='4' height='18' style='font-size: 9pt; color:538dc7; line-height: 160%'>" & "[ " & MemoTime & " ]" & Rebutton & "</td>" tab = tab & "<td width='8' background='f5.gif' height='102' rowSpan='5' style='font-size: 9pt; line-height: 160%'></td></tr><tr>" tab = tab & "<td width='378' colSpan='4' height='27' style='font-size: 9pt; line-height: 160%'><table height='1' cellSpacing='0' borderColorDark='#ffffff' cellPadding='0' width='100%' borderColorLight='#538dc7' border='1'><tr>" tab = tab & "<td width='378' height='20' style='font-size: 9pt; color:538dc7; line-height: 160%'>" & A1 & "<IMG SRC='i1.gif' border='0' align='absmiddle'>" & A2 & " " & Name & " " & "[ <FONT style='font: 9pt Arial' COLOR='538dc7'>" & Sex & "</FONT> ] [ <FONT style='font: 9pt Arial' COLOR='538dc7'>" & Job & "</FONT> ]</td></tr></table></td></tr><tr>" tab = tab & "<td width='378' colSpan='4' height='20' style='font-size: 9pt; color:538dc7; line-height: 160%'><img src='i2.gif' align='absmiddle''> Topic:" & subj & "</td></tr><tr>" tab = tab & "<td width='378' colSpan='4' height='10' style='font-size: 9pt; line-height: 160%'><Font color='" & Fc & "'><table border='0' cellspacing='0' width='100%' cellpadding='0' id='AutoNumber1'><tr>" tab = tab & "<td width='8' valign='top'><img src='i3.gif' align='absmiddle''>&nbsp;</td><td width='300'><font color=538dc7>Message:</font><font color='" & Fc & "'><br>" & Place & Memo & "</td></tr></table></font><br></td></tr><tr>" tab = tab & "<td vAlign='top' width='378' colSpan='4' height='1' style='font-size: 9pt; line-height: 160%'>" & Retab & "</td></tr><tr>" tab = tab & "<td vAlign='top' width='8' height='8' style='font-size: 9pt; line-height: 160%'><img src='f6.gif'></td>" tab = tab & "<td vAlign='bottom' width='378' background='f7.gif' height='13' style='font-size: 9pt; line-height: 160%' colspan='4'></td>" tab = tab & "<td vAlign='top' width='340' height='8' style='font-size: 9pt; line-height: 160%'><img src='f8.gif'></td></tr><tr>" tab = tab & "<td vAlign='center' width='40' height='5' style='font-size: 9pt; line-height: 160%'></td>" tab = tab & "<td width='8' height='5' style='font-size: 9pt; line-height: 160%'><table border='0' cellspacing='0' width='63' cellpadding='0' id='AutoNumber1'><tr><td></td></tr></table></td>" tab = tab & "<td width='1' height='5' style='font-size: 9pt; line-height: 160%' valign='top'></td>" tab = tab & "<td vAlign='top' width='167' height='5' style='font-size: 9pt; line-height: 160%'><table border='0' cellspacing='0' width='178' cellpadding='0' id='AutoNumber2'><tr>" tab = tab & "<td><p align='center'>" & IPBar & "</td></tr></table></td>" tab = tab & "<td vAlign='top' width='79' height='5' style='font-size: 9pt; line-height: 160%'><table height='1' cellSpacing='0' cellPadding='0' width='70' border='0'><tr>" tab = tab & "<td width='78' height='1' style='font-size: 9pt; line-height: 160%'>" & HomePage & "&nbsp;&nbsp;" & Email & "</td></tr></table></td>" tab = tab & "<td vAlign='center' width='340' height='5' style='font-size: 9pt; line-height: 160%'></td></tr></table></td></tr></table></center></div><br>" s = s + 1 ReTab = "" rs.MoveNext If rs.EOF Then Exit For End If Next End If%> <HTML> <HEAD> <meta http-equiv="Content-Type" content="text/html; charset=big5"> <meta http-equiv="Content-Language" content="zh-tw"> <TITLE><% =Title %></TITLE> <link rel="stylesheet" type="text/css" href="style.css"> <base target="_self"> <STYLE TYPE="text/css"> <!-- a, p, i, body, td{font-size:9pt;line-height=160%} td {word-break:break-all} //--> </STYLE> <script language="JavaScript"> <!-- function MM_reloadPage(init) { //reloads the window if Nav4 resized if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) { document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }} else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload(); } MM_reloadPage(true); // --> </script> </HEAD> <BODY topmargin=20> <div align=center> <table border=0 cellpadding=0 cellspacing=0 width=427 height=17> <tr> <td height=10 width=100> <%If User = Master Then If Pwd = Password Then %> <table border=0 cellpadding=0 cellspacing=0 style="border-collapse: collapse" bordercolor=538dc7 width=100 id=AutoNumber1> <tr> <td width=100>@<a href="<%=session.abandon%>" target=_self><strong>Logout</strong></a></td> </tr> </table> <%end if end if%> </td> <td height=10 width=200 style="font-size: 9pt; line-height: 160%"> <table border=0 cellspacing=0 style="border-collapse: collapse" bordercolor=538dc7 width=200 cellpadding=0 id=AutoNumber1 height=1> <tr> <td height=1 width=100>@<a href=form.asp><strong>Send Message</strong></a></td> <td height=1 width=100>@<a href=login.html><strong>Admin Access</strong></a></td> </tr> </table> </td> <td height=10 width=127> <%IF NoJump = False Then %> <p align=center> <select name=jump onChange="location.href=this.options[this.selectedIndex].value;" style="color: #538dc7; font-size: 9pt; border: 1px solid #538dc7; background-color: #ffffff"> <option value=index.asp>Page</option> <%FOR I=1 TO RS.PAGECOUNT %> <%IF I <> CINT(PAGE) THEN IF I < 10 THEN I = "0" & I END IF %> <%If User = Master Then If Pwd = Password Then %> <option value="index.asp?Page=<% =I%><%=DDD%>">to <% =I %> <% END IF %> <%else%> <option value="index.asp?Page=<% =I%>">to <% =I %> <% END IF %> <% END IF %> <%NEXT%> </select> <%End If%> </td> </tr> </table> </div> <%=Hr%><br><%=BackPage %><%=Tab %><%=Hr1 %><br> <div align=center> <table border=0 cellpadding=0 cellspacing=0 width=427 height=22> <tr> <td height=22 width=148></td> <td height=22 width=152></td> <td height=22 width=127> <%IF NoJump = False Then %> <p align=center><span lang="en-us">&nbsp;</span> <select name=select onChange="location.href=this.options[this.selectedIndex].value;" style="color: #538dc7; font-size: 9pt; border: 1px solid #538dc7; background-color: #ffffff"> <option value=index.asp>Page</option> <%FOR I=1 TO RS.PAGECOUNT %> <%IF I <> CINT(PAGE) THEN IF I < 10 THEN I = "0" & I END IF %> <%If User = Master Then If Pwd = Password Then %> <option value="index.asp?Page=<% =I%><%=DDD%>">to <% =I %> <% END IF %> <%else%> <option value="index.asp?Page=<% =I%>">to <% =I %> <% END IF %> <% END IF %> <%NEXT%> </select> <%End IF%> </td> </tr> </table> </div> <% rs.Close conn.Close%> </BODY> </HTML>