介面 <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html
放大 <%Class DealImgSize dim aso Private Sub Class_Initialize set aso=CreateObject("Adodb.Stream") aso.Mode=3 aso.Type=1 aso.Open End Sub Private Sub Class_Terminate set
資料|資料庫 <% if request("action")="save" then web_name=trim(request.form("web_name")) web_url=trim(request.form("web_url")) web_email=trim(request.form("web_email"))
顯示 <% ' 轉為根路徑格式 Dim sTempUrl sTempUrl = url If Left(sTempUrl, 1) = "/" Then RelativePath2RootPath = sTempUrl End If Dim sWebEditorPath sWebEditorPath = Request.ServerVariables(
排序 一,顯示紀錄 set rs=server.createobject("adodb.recordset") sql="select * from jfnewso where newsclass='理論動態' and classname='"&Session("fenlei")&"' order by Displayorder desc,id desc
遍曆|對象|伺服器 一 遍曆Request方式1:<%For Each r In Request.QueryString Response.Write "Request("""&r&""") = " & Request(r) Response.Write "<p>"Next%>方式2:<%For i = 1 To