<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'取得参数
reaction=request.form("reaction")
if reaction="submit" then
'取得用户名和密码
uid=trim(request.form("uid"))
pwd=trim(request.form("pwd"))
if session("uid")=uid then
call showMsg("你已经登录！")
else
'验证用户登录
result=chkUserLog(uid,pwd)
select case result
case -1
call showMsg("用户名不合法或用户名没有填写！")
call Go("back")
case -2
call showMsg("密码不合法或密码没有填写！")
call Go("back")
case 0
call showMsg("登录成功！")
end select
end if
end if
'取得下载项信息
set rs_down=server.createobject("adodb.recordset")
if session("uLevel")=0 then
rs_down.open "select * from download where res_userid=0",conn,1,1
elseif session("uLevel")=1 then
rs_down.open "select * from download order by upload_time desc",conn,1,1
'rs_down.open "select * from download where res_userid=1",conn,1,1
rs_down.pagesize=25
end if
'取得页数
if trim(request.querystring("page"))="" then
page=0
else
page=clng(request.querystring("page"))
end if
if page<1 then page=1
if page>rs_down.pagecount then page=rs_down.pagecount
%>
德国菲兹曼医用电子公司北京代表处|资料下载
首 页资料下载公司新闻会员登陆
<%
if session("uid")<>"" then
response.write "登 出"
end if
%>
