const.asp

来自「某公司的进销存软件的设计与开发」· ASP 代码 · 共 21 行

<%
'On Error Resume Next
sql="select * from config"
set rs_config=conn.execute(sql)
dianming=rs_config("dianming")
jieshaojifen=rs_config("jieshaojifen")
xuhuijifen=rs_config("xuhuijifen")
baojin=rs_config("baojin")
baojin2=rs_config("baojin2")

sql="select * from login where username='"&session("username")&"'"
set rs_login=conn.execute(sql)
quanxian=rs_login("quanxian")
fla=split(quanxian,",")
fla0=fla(0)
fla1=fla(1)
fla2=fla(2)
fla3=fla(3)
fla4=fla(4)
fla5=fla(5)
%>