<%
'---------------------------------access 版
'startime=timer()
'dim conn
'dim connstr
'dim db
'更改数据库名字
'db="data/admin.mdb"
'Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'conn.Open connstr
'----------------------------------SQL 版
set conn = Server.CreateObject("ADODB.Connection")
conn.open"driver={sql server};server=(local);uid=mobilenews_f;pwd=200r511041651;database=mobilenews"
%>
<%
on error resume next
err.clear
kind=request("kind")
if kind<>"" then
kind=cint(kind)
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from chinae_kind3 where auto_id="&kind,conn,3,1
if not rs.eof then
kindName=rs("kindName")
end if
rs.close
set rs=nothing
end if
%>
商家加盟
位置 中国移动手机网 
