sub_inc.asp

图书管理系统是用VC++做的有兴趣的可以来共同研究研究

          "<td class=show><div align=center>"& lingfengnet_ms_web_name &"&nbsp;--&nbsp;"& lingfengnet_ms_sys_name &"</div></td>"&_
        "</tr>"&_
        "<tr class=bgc>"&_
          "<td class=show>&nbsp;&nbsp;&nbsp;&nbsp;"& lingfengnet_ms_messadmin_mess &"</td>"&_
        "</tr>"&_
      "</table></td>"&_
  "</tr>"&_
"</table>"
end sub
sub htmlno()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0>"&_
  "<tr>"&_
    "<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
        "<tr>"&_
          "<td class=bgc4><div align=center>"& lingfengnet_ms_language_sorry &"</div></td>"&_
        "</tr>"&_
      "</table></td>"&_
  "</tr>"&_
"</table>"
end sub
sub htmlpage()
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0 >"&_
 "<tr>"&_
    "<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3 >"&_
        "<tr>"&_
          "<td width=25% class=bgc4><div align=center> </div></td>"&_
          "<td width=50% class=bgc4><div align=center>"& lingfengnet_ms_language_page_toa &""& Rs.pagecount &""& lingfengnet_ms_language_page_page &" "& lingfengnet_ms_language_page_doing &""& page &""& lingfengnet_ms_language_page_jump &"&nbsp;"&_
              "<select name=select2 size=1 onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
for jumpto=1 to Rs.pagecount
response.write "<option value="& Request.ServerVariables("URL") &"?page="& jumpto &" selected>"& lingfengnet_ms_language_page_nowpage &" "& jumpto &" "& lingfengnet_ms_language_page_page_page &"</option>"
next
response.write "</select>"
if page<>1 then
response.write "&nbsp;<a href="& Request.ServerVariables("URL") &"?page="& page-1 &">"& lingfengnet_ms_language_page_Last_a_page &"</a>&nbsp;"
end if
if Rs.pagecount-page <> 0 then
response.write "<a href="& Request.ServerVariables("URL") &"?page="& page+1 &">&nbsp;"& lingfengnet_ms_language_page_Next_page &"</a>&nbsp;"
end if
response.write "</div></td>"&_
          "<td width=25% valign=bottom class=bgc4><br>"&_
            "<form action="& Request.ServerVariables("URL") &" method=get name=page id=page>"&_
              "<div align=right> "& lingfengnet_ms_language_page_Turn &"&nbsp;"&_
                "<input name=page type=text id=page value=1 size=6 maxlength=6>&nbsp;"& lingfengnet_ms_language_page_6 &""&_
                "<input name=page type=submit id=page value="& lingfengnet_ms_language_page_submit &" >&nbsp; </div>"&_
            "</form></td>"&_
        "</tr>"&_
      "</table></td>"&_
  "</tr>"&_
"</table>"
end sub
sub htmlmain()
call htmltop()
response.write "<br>"
if left(flg,3)<>"man"  then
if lingfengnet_ms_messadmin=0 then
call htmltopg()
response.write "<br>"
end if
end if
if left(flg,3)<>"man" or session("lingfengnet_ms_admin_flg")<>"3"  then
call htmldefaultmen()
else
call htmladminmen()
end if
if rs.eof and rs.bof then
call htmlno()
page_no=1
else
response.write "<br>"
pagesetup=lingfengnet_ms_mypagesize
Rs.pagesize=lingfengnet_ms_mypagesize
if len(page)>lingfengnet_ms_pagemax then response.redirect "default.asp"  
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
do while not Rs.eof
i = i + 1
if i > Rs.pagesize then
exit do
end if

id=rs("id")
username=rs("username")
face=rs("face")
post=rs("post")
email=rs("email")
mess=rs("mess")
ip=rs("ip")
content=rs("content")
re=rs("re")
addtime=rs("addtime")
Auditing=rs("Auditing")
tel=rs("tel")
if lingfengnet_ms_ss = 0 and session("lingfengnet_ms_admin")<>"ok" then
username=left(username,1)&"****"
if left(tel,1)="1" then
tel=left(tel,3)&"********"
elseif left(tel,1)="0" then
tel=left(tel,4)&"********"
end if
end if
response.write "<table width="& lingfengnet_ms_web_w &" border=0 cellspacing=0 cellpadding=0>"&_
  "<tr>"&_
    "<td class=bgc2><table width=100% border=0 cellspacing=1 cellpadding=3>"&_
        "<tr>"&_
          "<td rowspan=3 class=bgc valign=top width=25% >&nbsp;"& lingfengnet_ms_language_messdef_nowmes &" <b>"& i+(page-1)*rs.pagesize &"</b> "& lingfengnet_ms_language_messdef_tomes &"<br>"&_
              "<br>"
if lingfengnet_ms_web_bs=0 then
if face="1.jpg" then
if lingfengnet_ms_web_bs_lx=0 then
response.write "&nbsp;<img src=face/Business/zylf_mess_pho_b_"& face &" width=40 height=40>"
elseif lingfengnet_ms_web_bs_lx=1 then
response.write "&nbsp;<img src=face/Individual/zylf_mess_pho_i_"& face &" width=40 height=40>"
end if
else
response.write "&nbsp;<img src=face/"& face &" width=40 height=40>"
end if
end if
response.write "<br>"&_
            "<p>&nbsp;<font color=#333333>"& lingfengnet_ms_language_messdef_username &"</font>"& username &"<br>"&_
              "<br>"&_
              "<font color=#333333>&nbsp;"& lingfengnet_ms_language_messdef_tel &"</font>"& tel &"<br>"&_
            "</p></td>"
if session("lingfengnet_ms_admin")<>"ok" then			
response.write "<td width=50% class=bgc>&nbsp;"& lingfengnet_ms_language_messdef_addtime &""& addtime &"</td>"
else
response.write "<td width=50% class=bgc>&nbsp;<font color=#ff0000>（您在管理员状态）</font>&nbsp;"& lingfengnet_ms_language_messdef_addtime &""& addtime &"</td>"
end if
response.write "<td width=25% class=bgc><div align=center>"
if session("lingfengnet_ms_admin")="ok" then
if session("lingfengnet_ms_admin_flg")="3" or session("lingfengnet_ms_admin_flg")="2" or session("lingfengnet_ms_admin_flg")="1" then
response.write "<a href=mailto:"& email &"><title="& lingfengnet_ms_language_messdef_to &"『 "& username &" 』"& lingfengnet_ms_language_messdef_setmail &"><img border=0 src=pic/icon_email.gif width=16 height=16></a> <img border=0 src=pic/icon_homepage.gif width=16 height=16 alt=『 "& username &" 』"& lingfengnet_ms_language_messdef_post &":"& post &"> <a href="& qq(mess) &" target=_blank ><img alt=『 "& username &" 』"& lingfengnet_ms_language_messdef_mess &"："& mess &" src=pic/icon_editor_oicq.gif width=16 height=16 border=0></a> <a href=http://home.zknu.edu.cn/wfr/yc/index.asp?ip="& ip &"&search="& ip &" target=_blank ><img alt=『 "& username &" 』"& lingfengnet_ms_language_messdef_ipp &"："& ip &" border=0 src=pic/icon_ip.gif width=16 height=16></a>"
end if
if Auditing=0 or ((Auditing=1 or Auditing=2 or Auditing=3) and session("lingfengnet_ms_admin_flg")="3") then
if session("lingfengnet_ms_admin_flg")="3" or session("lingfengnet_ms_admin_flg")="2" then
response.write " <a href=Auditing.asp?gbookid="& id &" title="& lingfengnet_ms_language_messdef_Aud &"><img border=0 src=pic/replay.gif width=16 height=16></a>"
end if
end if
if session("lingfengnet_ms_admin_flg")="3" then
response.write " <a href=del.asp?gbookid="& id &"&flg=del title="& lingfengnet_ms_language_messdef_del &"><img border=0 src=pic/del.gif width=16 height=16></a>"
end if
end if
response.write "</div></td>"&_
        "</tr>"&_
        "<tr>"&_
          "<td width=75% class=bgc1 colspan=2 height=60>&nbsp;"& content &"</td>"&_
        "</tr>"&_
        "<tr class=bgc>"&_
          "<td width=75% height=30 colspan=2>"
if Auditing=1 then
response.write "<font color=#999999>"& lingfengnet_ms_language_messdef_mesok_nosee &"</font>"
            elseif Auditing=2 and re="0" then
response.write "<font color=#999999>"& lingfengnet_ms_language_messdef_mesok_see &"</font>"
            elseif Auditing=3 then
response.write "<font color=#0000FF>"& lingfengnet_ms_language_messdef_mesok_fli &"</font>"
           elseif Auditing=0 then
response.write "<font color=#ff0000>"& lingfengnet_ms_language_messdef_mesok_Wait_for &"</font>"
            elseif Auditing=2 and re<>"0" then
response.write "<font color=#0000FF>"& lingfengnet_ms_language_messdef_mesok_re &""& re &"</font>"
            end if
response.write "</td>"&_
        "</tr>"&_
      "</table></td>"&_
  "</tr>"&_
"</table>"
Rs.movenext
loop
response.write "<br>"
  if page_no<>1 then
  call htmlpage()
end if
end if
end sub
%>