⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 newphoto.asp

📁 使用ASP元件(請自行下載、安裝或登錄) AspUpload+AspJpeg+Jmail[或AspMail] 整合JS與FLASH套件 Highslide JS+SWFUpload+Titl
💻 ASP
字号:
<!-- #include file="config.asp" -->
<%
Page=cint(Request("Page"))
If Page = 0 Then
   Page = 1
End If

%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<HTML XMLNS="http://www.w3.org/1999/xhtml">
<HEAD>
<META HTTP-EQUIVE="Content-Type" CONTENT="text/html; charset="big5">
<meta http-equiv="Content-Language" content="big5" />
<LINK REL="stylesheet" HREF="css/style.css" TYPE="text/css">
<TITLE><%=photoname%></TITLE>
<script language="JavaScript" src="js/OpenWnd.js"></script>
<SCRIPT language=JavaScript>
function CheckAll(){
  for (var i=0;i<document.order_form.elements.length;i++){
    var e = document.order_form.elements[i];
    if (e.type == 'checkbox' && e.name != 'allepage')
      e.checked = document.order_form.allepage.checked;
  }
}
</SCRIPT>
</HEAD>
<BODY bgcolor=ffffff marginheight=0 marginwidth=0 leftmargin=0 topmargin=0>
<center>
<table border=0 width=984>
   <tr><td valign=top width=192>
   <table border=0>
      <tr><td valign=top align=center width=192>
<!-- #include file="menu.asp" -->
<%
Set conn=Server.CreateObject("ADODB.Connection")
param = "driver={Microsoft Access Driver (*.mdb)}"
conn.Open param & ";dbq=" & Server.MapPath("aspupload.mdb")
Set rs1=Server.CreateObject("ADODB.Recordset")
SortSql="Select * From area Order By [area]"
rs1.Open SortSql, conn, 1,3
do until rs1.EOF
  response.write "<DIV id=areana><a href=list.asp?areana="&rs1("areana")&">"&rs1("areana")&"</a></DIV>"
  rs1.MoveNext
loop
rs1.close
%>
</td></tr></table><td VALIGN=TOP align=left>
<table width=792 border=0><tr><td colspan=4>
<div align=right>眤

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -