default.asp

一个非常好的旅游网站程序.

<%
shop_name=request("shop_name")

dim conn,mo,mo_url
set conn=server.createobject("adodb.connection")
conn.connectionstring="provider=microsoft.jet.oledb.4.0;"&"data source="&server.mappath("../Database/shop_asdg.mdb")
conn.open

'打开数据库取得商家网站模板代码
set rs=server.createobject("adodb.recordset")
sqltext="select moban from shop where shop_name1='"&shop_name&"'  "
rs.open sqltext,conn,1,1

mo=rs("moban")
response.redirect mo&"/default.asp?shop_name="&shop_name
%>