< %@ LANGUAGE="VBscript" % >< % RequestName = Request.Form("Name")RequestLeaveMeAlone = Request.Form("LeaveMeAlone")If Re...
<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, int...
<%Dim varInitial_TimevarInitial_Time = TimerResponse.Write "Initial_Time =[" & varInitial_Time & "]<br>"%> <% For I...
<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application"></OBJECT><s...
<%@ language = vbscript%><% Response.Expires = 0 %><html><head><title>星河影动之动态添加Form项</title>&l...
<% @ LANGUAGE="VBscript" %><% OPTION EXPLICIT %><!--#include file="DataConn.asp"--><!--#include file="FuncSet...
<%function unicode(str)dim i,j,c,i1,i2,u,fs,f,punicode=""p=""for i=1 to len(str)c=mid(str,i,1)j=ascw(c)if j<0 thenj=j+65536e...
<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服务端不出现Excel窗口.set myWorkbook = xlApp.Workbooks.Ad...
Function InsertHyperlinks(inText)Dim objRegExp, strBufDim objMatches, objMatchDim Value, ReplaceValue, iStart, iEnd strBuf =...
<%@ codepage="65001" %><!-- #INCLUDE FILE="ADOVBS.INC" --><%Response.ContentType = "text/xml"' 如果不在 adovbs.inc 里,则设...
global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("o...
<% If Err.Number <> 0 Then ' 错误处理. Response.Clear ' 清除缓冲区....
<%dim choose,path,mydb,myset,SQL,fs,mp3' 获得用户提交表单(list.htm)选中的曲目对应的id号,并将其赋给字串变量choose. choose=“("for i=3 to request.form.count...
login.asp' 考生验证.<%@ Language=VBScript%><%name=trim(request("name"))passwd=trim(request("passwd"))if name<>"" and pa...
searchfiles.html <html><head><title>撼雪喷云之本网搜索引擎</title></head><body><form method="POST...
<%head = "搜索"SearchString = Request("SearchString")count=0Function UnMapPath( Path ) UnMapPath = Replace(Mid(Path,...
searchpage.htm' 搜索页面.<html><head> <title>千花飞舞之站内搜索引擎</title> </...
<%@ LANGUAGE="VBscript" %> <html> <head> <meta NAME="GENERATOR" Content="Microsoft FrontPage 3.0"> <...
<% if Request.QueryString("PageNumber").count > 0 then ' 指定页号的参数PageNumber.如果指定页号,则以指定页号为依据. PageNumber = Request.QueryStrin...
如何用组件实现自动发送电子邮件?JMailUploadAutoForm.asp<html><body><font face="verdana, arial" size="2"><b><form method...