sub_inc.asp

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

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")
%>
<!-- #include file="key.asp" -->
<%
if rs("encrypt")=1 then
username=DeCrypt(rs("username"))
post=DeCrypt(rs("post"))
ip=DeCrypt(rs("ip"))
email=DeCrypt(rs("email"))
mess=DeCrypt(rs("mess"))
content=DeCrypt(rs("content"))
tel=DeCrypt(rs("tel"))
if rs("re")<>"0" then
re=DeCrypt(rs("re"))
else
re=rs("re")
end if
else
username=rs("username")
post=rs("post")
ip=rs("ip")
email=rs("email")
mess=rs("mess")
content=rs("content")
tel=rs("tel")
re=rs("re")
end if
face=rs("face")
addtime=rs("addtime")
Auditing=rs("Auditing")
ys2=rs("silentlywords")
if trim(Request("keyword"))<>"" then
	if session("lingfengnet_ms_admin")<>"ok" then
		if  ys2=1 and lingfengnet_ms_ss = 1 and trim(Request("keyword"))<>username  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
		content=left(content,6) & "..." & lingfengnet_ms_language_sub_01
		end if
		if ys2=0 then	
		if	Auditing=1	then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_nosee
		elseif	Auditing=2	and re="0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_see
		elseif	Auditing=2	and re<>"0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_re & re & "</font>"
		elseif	Auditing=3	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_fli
		elseif	Auditing=0	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_Wait_for
		else
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		end if
		elseif ys2=1 and trim(Request("keyword"))<>username then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		elseif ys2=1 and trim(Request("keyword"))=username	and re="0" then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_see
		elseif ys2=1 and trim(Request("keyword"))=username	and re<>"0" then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_re & re & "</font>"
		end if
	else
		if	Auditing=1	then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_nosee
		elseif	Auditing=2	and re="0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_see
		elseif	Auditing=2	and re<>"0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_re & re & "</font>"
		elseif	Auditing=3	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_fli
		elseif	Auditing=0	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_Wait_for
		else
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		end if
	end if
else
		if session("lingfengnet_ms_admin")<>"ok" then
		if  lingfengnet_ms_ss = 1 or ys2=0 then	
		if	Auditing=1	then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_nosee
		elseif	Auditing=2	and re="0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_see
		elseif	Auditing=2	and re<>"0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_re & re & "</font>"
		elseif	Auditing=3	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_fli
		elseif	Auditing=0	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_Wait_for
		else
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		end if
		elseif  lingfengnet_ms_ss = 0 and ys2=1 then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		end if
		if  lingfengnet_ms_ss = 0 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
		if  lingfengnet_ms_ss = 0 and ys2=1 then	
			content=left(content,6) & "..." & lingfengnet_ms_language_sub_01
		end if
	else
		if	Auditing=1	then
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_nosee
		elseif	Auditing=2	and re="0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_see
		elseif	Auditing=2	and re<>"0"	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_re & re & "</font>"
		elseif	Auditing=3	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_fli
		elseif	Auditing=0	then	
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_Wait_for
		else
		lingfengnet_ms_language_sub_tr_td=lingfengnet_ms_language_messdef_mesok_err
		end if
		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 &"><img alt='"& lingfengnet_ms_language_messdef_to &"『 "& username &" 』"& lingfengnet_ms_language_messdef_setmail &"' 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>"&_
             ""& lingfengnet_ms_language_sub_tr_td &""&_
          "</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
%>
<!--<tr>
                <td height=22 valign=middle><div align=center><script>var caid=3389;</script><script src=http://ca.315safe.com/ca.js></script>
                        </div></td>
             </tr>-->