📄 shopconn.asp

📁 宁波娱乐在线城市,丰富的内容版块

💻 ASP

字号:

<%
dim connshop
dim strshop
dim dbshop
'更改社区超市据库名字
dbshop="shop.mdb"
Set connshop = Server.CreateObject("ADODB.Connection")
strshop="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbshop)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'strshop="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbshop)
connshop.Open strshop
sub shophead()
%><link rel=stylesheet type=text/css href=forum.css></HEAD>
<body topMargin="0" leftMargin="0" background="../images/bg.gif"><center><br><table width="100%" height="33" cellpadding="0" cellspacing="0"><tr><TD align="right" width=55% ><FONT size="+1"><b>服饰百货</b></FONT></TD>
<%if not master then%>
<td align=right><a href=shop.asp><font color=#7a437a>商店列表</font></a> <a href=lfshow2.asp><font color=#7a437a>试衣间</font></a> <a href=shoped.asp><font color=#7a437a>我的服装柜</font></a> <a href=lfshow.asp><font color=#7a437a>个性设置</font></a><%else%><td align=right><a href=shop.asp><font color=#7a437a>商店列表</font></a> <a href=lfshow2.asp><font color=#7a437a>试衣间</font></a> <a href=shoped.asp><font color=#7a437a>我的服装柜</font></a> <a href=lfshow.asp><font color=#7a437a>个性设置</font></a> 
<!--
<a href=myshop.asp><font color=#7a437a>我的商店</font></a> <a href="shopmana.asp"><font color=red>超市管理</font></a>
//-->
<%end if%>&nbsp;</td></tr></table><%end sub%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -