<% username=replace(request("username"),"'","＇") PASSWORD=replace(request("PASSWORD"),"'","＇") actiontype=request("actiontype") set fileRs = server.CreateObject("Adodb.Recordset") if username<>"" and PASSWORD<>"" then sql = "select * from user1 where idname='"&username&"' and pass='"&PASSWORD&"'" fileRs.Open sql,Application("Conn"),3,3 if not fileRs.EOF then session("idname") = username session("pass") = PASSWORD session("diqu") = filers("diqu") session("super")=fileRs("guanli") end if fileRs.Close() end if if actiontype="quite" then session.Abandon() Response.Redirect("index.asp") end if %> 文迅电子工程有限公司
  
<%if session("idname")="" then%> <%else%> <%end if%>
   
会员名:
密  码:
 
   
欢迎<%=session("idname")%>光临！
   
 
友情链接
友情链接
友情链接
友情链接
友情链接
 
 
 
 
防盗系统 闭路电视监控系统 消防报警系统 综合布线系统 楼宇访客对讲系统 楼宇可视对讲系统 紧急广播/背景音乐系统 楼宇监察系统 楼宇自控系统 舞台灯光/音乐系统 卫星电视系统 共用天线系统 内部电话系统 门磁保安系统 巡更系统 电化教学系统 酒店客房电控系统 酒店内部寻呼系统 国际会议系统 同声传译系统 卡拉OK系统 车库管理系统 交通灯系统 楼宇电子公司名称目录系统 电脑收银机系统 寻呼台系统 酒店磁卡门锁系统 无线手机通讯系统 住户自控系统 失聪感应系统 门禁系统 程控电话系统 移动电话天线系统 核对相片系统 视听音响系统 酒店床头面板控制系统 自动抄表系统 电梯插卡感应系统 感应一卡通巡更系统 聪明卡系统 显示板系统 电脑网络系统 酒店电脑锁系统 办公室自动化系统 漏水报警系统 不间断备用电源系统 视像会议系统 LED显示屏幕墙系统 光缆接收/发射系统 电话配线系统
 
<% Set fileRs = Server.CreateObject("Adodb.Recordset") sql = "select * from news where del='0' and leixing='0' order by fbdate desc" fileRs.Open sql,Application("conn"),1,1 i = 1 If Not FileRs.EOF Then FileRS.PageSize = 5 For i=1 To FileRS.PageSize %> <% fileRs.MoveNext() if fileRs.EOF then i = i + 1 exit for end if next end if filers.close %>
&leixing=a"><%response.write left(filers("title"),12)&"..."%>
 
<% Set fileRs = Server.CreateObject("Adodb.Recordset") sql = "select * from news where del='0' and leixing='1' order by fbdate desc" fileRs.Open sql,Application("conn"),1,1 i = 1 If Not FileRs.EOF Then FileRS.PageSize = 5 For i=1 To FileRS.PageSize %> <% fileRs.MoveNext() if fileRs.EOF then i = i + 1 exit for end if next end if filers.close %>
&leixing=b"><%response.write left(filers("title"),12)&"..."%>