?? common-admin.asp
字號:
<%
'--------------------------------------------------------------------
'asp forum discussion by Elad Rosenberg and Lior Peleg.
'latest version : 9/7/00
'included several bug fixing
'
'eladr@tip.co.il
'
'--------------------------------------------------------------------
'all variables must be declared
option explicit
response.buffer=true
'response.write "<meta charset='visual'>"
dim line
line = "<img src='images/line.gif' width=600 height=1><br><br>"
sub header()
response.write "<HTML><HEAD><link rel='stylesheet' href='style.css'><title>forum messages</title>"
response.write "<HTML><HEAD><link rel='stylesheet' ><title>恒潤科技論壇</title>"
response.write "<STYLE type=text/css>td,p,li,input,select {font-size:14px;}</STYLE>"
response.write "<link rel='stylesheet' href='../../hr.css' type='text/css'>"
response.write "<TITLE>Forum Messages</TITLE></HEAD><body>"
response.write "<table align=center border=0 width=600 cellpadding=0 cellspacing=0>"
'response.write "<tr><td><img src='../../images/banner.gif'></tr></td>"
response.write "<tr><td><center><font size=5><b><font color='#FF0000'>恒潤科技論壇管理界面</font> </b> </center></tr></td>"
end sub
sub admin()
response.write "<br><br><A HREF='admin/main.asp'>管理員？</a>"
end sub
'set buffering to true
response.buffer=true
'declaring variables
dim dsn,conn,rs,sql
dsn="DBQ=" & Server.Mappath("../db/forum.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
sub connect()
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn
end sub
sub close()
rs.close
set rs=nothing
conn.close
set conn=nothing
end sub
sub footer()
response.write "<tr><td><br>"
response.write "<img src='images/line.gif' width=600 height=1><br><br>"
response.write "</body></html>"
end sub
'this function is ordering the child messages
sub displayMessages(layer,id)
'declaring
dim sql_order,rs_order,image,str,MessageSpacing,mesid,spaceing,tid
'create recordset
set rs_order=server.createObject("adodb.recordset")
'find child with thread_parent=his parent id
sql_order = "SELECT * FROM mestbl WHERE thread_parent = " & id & "and thread_parent<>0"
rs_order.open sql_order,conn
do until rs_order.eof
mesid=rs_order("id")
name=rs_order("name")
email=rs_order("email")
subject=rs_order("subject")
mesdate=rs_order("mesdate")
fid=rs_order("forumID")
tid=rs_order("thread_id")
image="<img src='../images/arr1.gif' border=0>"
str=""
spaceing=""
'this actually looking for 1,2,3 space
'if it's doesn't find it's eof - if not it makes spaces as needed
for MessageSpacing=1 to layer
spaceing=spaceing & " "
next
str= "<tr><td>"
str=str& spaceing & image & "<a href='../show.asp?id=" & mesid & "&fid="&fid&"&tid="&tid&"'>" & subject & "</a>" & "...." & mesdate
str=str& "...." & name & " <a href='edit-del.asp?action=edit&id=" & mesID & "&fid="&fid&"&tid="&tid&"'>(Edit</a>" & "<a href='edit-del.asp?action=del&id=" & mesid & "&fid="&fid&"&tid="&tid&"'> | Del) </a>"
str=str& "</tr></td>"
str=str & "</b>"
'printing details
'str= "<tr><td>"
'str=str & "<a href='edit-del.asp?action=edit&id=" & mesID & "&fid="&fid&"&tid="&tid&"'>(鐙瀘</a>" & "<a href='edit-del.asp?action=del&id=" & mesid & "&fid="&fid&"&tid="&tid&"'> | 麋?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -