📄 menu.asp

📁 线上售货网管理模组

💻 ASP

字号:

<HTML>
<HEAD>
<TITLE>分类选单</TITLE>
<meta http-equiv=Content-Type content=text/html; charset=gb2312>
<STYLE TYPE="text/css">
<!-- body,td{font:9pt 宋体}
textarea,select,checkbox,input,select{font-size:9pt};
.text1{font-family:宋体;font-size:10pt;color:rgb(0,0,0);line-height:22px;text-align:justify; color:000000}
A:link {text-decoration: none; font-size:9pt; color:ffffff}
A:visited {text-decoration: none; font-size:9pt; color:ffff00}
A:active {text-decoration: underline; font-size:9pt; color:ffff00}
A:hover {text-decoration: underline; font-size:9pt; color:ff0066}
--></style>
</HEAD>
<body background=img/bk.gif bgcolor=336600 marginheight=0 marginwidth=0 leftmargin=0 topmargin=0 bgproperties=fixed>
<a href=order.asp?mytype=query target=main><img src=img/12.gif border=0></a><br><br>
<center>
<table border=0 cellspacing=1 cellpadding=1 width=105>
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("cd.mdb")
Set rs=Server.CreateObject("ADODB.Recordset")
sqlstr="select * from area"
rs.open sqlstr,conn,3,2
do until rs.EOF
  areano=rs("areano")
  areana=rs("areana")
  response.write "<tr><td><a href=addcd.asp?areana=" & areana &" target=main><img src=img/p.gif width=15 height=15 border=0></a>"
  response.write "<a href=list.asp?areana=" & areana & " target=main>" & areana & "</a></td></tr>"
  rs.movenext
loop
rs.close
conn.close
%>
<tr><td><img src=img/p.gif width=15 height=15><a href=new.asp target=main>最近新卡</a></td></tr>
</table><br>
<img src=img/p.gif width=15 height=15><a href=register.asp target=main><font size=2>柜台结帐</a><br><br>
<a href=admin/index.htm target=_top>管理登陆</a><br>
<font color=ff0066>密马:test</font>
</center>
</body>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -