myprg.asp

1.多种查询方式

<%
'显示成功信息
sub ShowSuccess(okmsg)
  session("success")=okmsg
  response.redirect "success.asp"
'  response.write "<p align=center><font color=blue>"+okmsg+"</font>"
'  response.write "<p align=center>[ <a href=manage.asp>返回管理主界面</a> | <a href='' onclick=history.go(-1)>返回</a> ]<br><br>"
end sub
'取出用户名，所在公司，及权限标志
sub ShowFlag()
sp = split(session("username"),";")   
UserFlag = sp(1)
UserCompanyid = sp(0)
User = sp(2)   
end sub

dim debug
'如果状态位为1，则进入程序调试状态，如果为其它，则向用户提供一个不详细的讯息
debug = 1

'显示错误信息
sub ShowError(errmsg)
  session("error")=errmsg
  response.redirect "error.asp"
  response.write "<p align=center><font color=red>"+errmsg+"</font>"
  response.write "<p align=center>[ <a href='' onclick=history.go(-1)>返回</a> ]<br><br>"
end sub
'显示标题
sub ShowTitle(cTitle)
%>
<img src="../images/logo2.gif"   border="0">
<%
  response.write "-><font color=blue size=6><b>"&cTitle&"</b></font><br>"
  response.write "<hr size=1>"
end sub
%>