newphoto.asp

来自「使用ASP元件(請自行下載、安裝或登錄) AspUpload+AspJpeg+」· ASP 代码 · 共 49 行

ASP
49
字号
<!-- #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 + =
减小字号Ctrl + -
显示快捷键?