📄 basictest.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<TITLE>系统测试页</TITLE>
</HEAD>
<BODY>
<%
Dim Gs_Account,Gs_Password,DBConn,Rs,LStr_Sql,Gs_StaffID
Gs_Account=Trim(Request("text1"))
Gs_Password=Trim(Request("password1"))
Set DBConn=Server.CreateObject("ADODB.Connection")
DBconn.Open Application("Connection2_ConnectionString")
LStr_Sql="SELECT Stf_ID,Rit_GID,Rit_UPass,Rit_UStatus "
LStr_Sql=LStr_Sql+"FROM Right_User "
LStr_Sql=LStr_Sql+"WHERE Rit_UID='"& Gs_Account &"'"
Set Rs=Server.CreateObject("ADODB.Recordset")
Rs.Open LStr_Sql,DBConn
If Rs.EOF And Rs.BOF Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起没有此帐号！",,"CMS系统提示"
form1.submit
-->
</script>
<%
Response.End
Else
If Trim(Rs("Rit_UStatus"))<>"启用" Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起此帐号没有启动！",,"CMS系统提示"
form1.submit
-->
</script>
<%
Response.End
End If
If Trim(Rs("Rit_UPass"))<>Gs_Password Then
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
%>
<script LANGUAGE="vbscript">
<!--
MsgBox "对不起，密码不正确，请重新输入！",,"CMS系统提示"
form1.submit
-->
</script>
<%
Response.End
End If
Gs_StaffID=Trim(Rs("Stf_ID"))
Session("Gs_StaffID")=Gs_StaffID
Gs_Account=Trim(Request("text1"))
Session("Gs_StafferName")=Gs_Account
Rit_ID=Trim(Rs("Rit_GID"))
End If
Rs.Close
DBConn.Close
Set Rs=Nothing
Set DBConn=Nothing
if Rit_ID <> "2" then
Session("Gs_StafferType")="总部职工"
%>
<h2 align=center>CMS2002 系统测试页(总部)</h2>
<P><FONT color=red size=4><STRONG>基础资料维护：</STRONG></FONT></P>
<P><A href="Basic/WareHouse_List.asp" target=_blank>仓库维护</A></P>
<P><FONT color=red><STRONG>销售管理：</STRONG></FONT></P>
<P><FONT color=black> <A href="Sale/SaleSendCheck_Apply.asp" target=_blank>送检申请</A>
<A href="Sale/SaleSendCheck_Approve.asp" target=_blank>送检审批</A></FONT>
<A href="WareHouse/SaleOutStore.asp" target=_blank>出库</A>
<A href="WareHouse/Deliver_OutOddSelect.asp" target=_blank>发货</A>
<A href="Sale/FreightBill_Select.asp" target=_blank>到货确认</A></P>
<P><FONT color=red><STRONG>销售查询：</STRONG></FONT></P>
<P>
<A href="SaleQuery/Stk_CtgQuery.asp" target=_blank>仓库品种库存查询</A>
</P>
<%
else
Session("Gs_StafferType")="区域职工"
%>
<h2 align=center>CMS2002 系统测试页(区域)</h2>
<P><FONT color=red><STRONG>销售管理：</STRONG></FONT></P>
<P><FONT color=black> <A href="Sale/SaleSendCheck_Apply.asp" target=_blank>送检申请</A>
<A href="Sale/FreightBill_Select.asp" target=_blank>到货确认</A></P>
</BODY>
</HTML>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -