<% dim name1,password name1=trim(request("name")) password=trim(request("password")) if name1<>"" and password<>"" then Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("zhanhui.mdb") Conn.Open set rs=server.CreateObject("adodb.recordset") sql="select * from admin where 编号='"& name1 &"' and 密码='" & password &"'" rs.open sql,conn,1,1 if not rs.eof then session("pass")=1 session("user")=name1 response.Redirect "display.asp" else response.write "" end if end if %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("zhanhui.mdb") Conn.Open set rs1=server.CreateObject("adodb.recordset") SQL = "Select top 9 * From yaohui Order By 更新日期 Desc" rs1.open sql,conn,1,1 %> <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & Server.MapPath("zhanhui.mdb") Conn.Open set rs3=server.CreateObject("adodb.recordset") SQL = "Select top 9 * From news Order By 时间 Desc" rs3.open sql,conn,1,1 %> 明日展览|明日会展|展会网|药交会|药品交易会|全国药交会|药交会|药会|沈阳药交会|东北药交会
设为首页
加为收藏
成为会员
联系我们
　　首　页　|　明日展览　|　会展预告　|　参展申请　|　会场广告　|　医药招商　|　展会服务　|　客户留言　|　联系我们
展 位 图
展 会 日 程
展 会 介 绍
展 示 范 围
参 展 费 用
展 会 服 务
观 众 构 成
申 请 参 展
   

 

 

■联系我们
沈阳明日科技展览贸易有限公司
地址：辽宁沈阳市铁西区沈辽东路20-1号
　　 金居花园Ａ１座２楼
邮编：110021
电话：024-25850618
传真：024-25850618		 广告部
电话： 024-25850618
邮箱： mingri8888@126.com
   
展会部 客服部
电话： 024-25850618
邮箱： mingri8888@126.com
电话： 024-25850618
邮箱： mingri8888@126.com
   
招商部 网络部
电话： (024-25850618
邮箱： mingri8888@126.com
电话： 024-25850618
邮箱： mingri8888@126.com
 
媒体合作部  
电话： 024-25850618
邮箱： mingri8888@126.com
 

 
版权所有　沈阳明日科技展览贸易有限公司