<%
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
%>
明日展览|明日会展|展会网|药交会|药品交易会|全国药交会|药交会|药会|沈阳药交会|东北药交会
设为首页
