Page 7/8 of the commonly used function library collection in asp production

 boardid=request("boardid") 
  password=request("password") 
  Set conn = ("") 
   "driver={Microsoft AccessDriver (*.mdb)};dbq=" & ("") 
  Set cmd = ("") 
  Set  = conn 
= "Board Master Password Query"
ReDim param(0)' Declaration
param(0)= CLng(boardid)//Note: CLng cannot be ignored
  Set rs = ( ,param ) 
boardmanager=rs("board owner")
if password＜ ＞ rs("password")then %＞
  ＜ html＞ 
  ＜ head＞ 
＜ title＞Identity authentication＜ /title＞
  ＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞ 
  ＜ /head＞ 
  ＜ body bgcolor="#FFFFFF"＞ 
Password error
  ＜ /body＞ 
  ＜ /html＞ 
  ＜ % 
  else 
  session("beenthere")=boarded 

Note: Use Session to maintain authentication to moderators, which must require the client browser's cookie to be opened. Because Session is achieved through cookies. Here, assign the Kanban ID to the Session variable being here, indicating that the moderator has passed the authentication. In each subsequent page of the layout processing, check whether the beenthere matches the corresponding version ID.

   
  url="?boardboardid") 
  if session("beenthere")＜ ＞boardidthen  "" 

Note: This is where the moderator's identity is checked, because it has been marked in Banzhu's browser through cookies, and now we can identify the moderator's identity through seesion. If the marking does not match, it will be returned to the initial login page. If the moderator browser's cookie is not opened, then the value of seesion ("beenhere") will be empty and the page will not be entered.

   
  Set conn = ("") 
   "driver={Microsoft AccessDriver (*.mdb)};dbq=" & ("") 
  Set cmd = ("") 
  Set  = conn 
sql="select name from kanban list where name”)
="Not published article list"
  ReDim param(0) 
param(0)= CLng(boardid)//Note: Clng cannot be ignored
  Set rs = ( ,param ) 
  set cmd=nothing 
  %＞ 
  ＜ html＞ 
  ＜ head＞ 
＜ title＞Platform processing＜ /title＞
  ＜ meta http-equiv="Content-Type"content="text/html; charset=GB2312"＞ 
  ＜ /head＞ 
  ＜ body bgcolor="#FFFFFF"＞ 
＜ h1 align="center">＜%=boardname%>Copyright Management＜ /h1>
  ＜ hr＞ 
  ＜ % 
if or  then  "＜H2> There are no articles to deal with now＜ /h2>"
   
  %＞ 
Note: If no new articles are posted by netizens, this gives a corresponding prompt and is used to end the display of this page.
  ＜ table width="90%" border="0"cellspacing="0" cellpadding="0"align="center" ＞ 
  ＜ tr bgcolor="#FFFFCC"＞ 
＜ td width="40%" height="20">Topic </td>
＜ td width="40%" height="20">Article title</td>
＜ td width="8%" height="20">Author＜/td>
＜ td width="12%" height="20">Date</td>
  ＜ /tr＞ 
  ＜ % 
  do 
topicid=rs("topicid")
articleid=rs("Articleid")
data=rs("date")
  datastr=cstr(year(data)) & "-"& cstr(month(data)) &"-"& cstr(day(data)) 
author=rs("Author")
articlename=rs("Title")
topicname=rs("topic")
   "＜ tr＞＜ td＞＜a href=?topic＞" & topicname &"＜ /A＞＜ /td＞" 
   "＜ td＞＜ a href=?article&board＞" &articlename & "＜ /A＞＜ /td＞" 
   "＜ td＞＜ a href=?author="&author & "＞" & author& "＜ /a＞＜ /td＞" 
   "＜ td＞" &datastr & "＜ /td＞＜ /tr＞" 
   
  loop until  
  %＞ 
  ＜ /table＞ 
  ＜ /html＞ 
  ＜ % 
  set rs=nothing 
   
  set conn=nothing 
  %＞ 
  ＜ /body＞