搜索列表
-
如何验证IP地址？
【编程10000问】 sub chkIP(boardid) dim rsIP dim ipArr dim ignored dim i dim ip dim sql ip=Request.ServerVariables("REMOTE_ADDR") ignored=false if not isempty(boardid) then sql="select ignoreip from board where boa...
|如何|何验|验证|证I|IP|P地|地址|址？|？| -
如何显示随机信息？
【编程10000问】<html><head><title>千花飞舞之信息随机显示</title></head><body><% randomizerandomnum=int(rnd*6)+1' 随机发生次数.select CASE randomnumCASE 1%>我最喜爱的出版社——中国水利水电出版社<br><%CASE 2%>我最常去的网站——...
|如何|何显|显示|示随|随机|机信|信息|息？|？| -
如何显示数据库的结构？
【编程10000问】<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#CCCCCC" text="#000000"><h2 align="center">星河影动之查看数据库结构</h2><p> <%on error resume nexttable=request("table")&...
|如何|何显|显示|示数|数据|据库|库的|的结|结构|构？|？| -
如何判断URL格式是否符合规范？
【编程10000问】<% function checkisUrl(tmpString) dim c,i checkisUrl = true tmpString=Lcase(trim(tmpString)) if left(tmpString,7)<>"http://" then tmpString="http://"&tmpString &n...
|如何|何判|判断|断U|UR|RL|L格|格式|式是|是否|否符|符合|合规|规范|范？|？| -
如何计算下载一个文件需要多长时间？
【编程10000问】<%Function DownloadTime(intFileSize, strModemType)Dim TimeInSeconds, ModemSpeed, strDownloadTime, AppendStringDim intYears, intWeeks, intDaysDim intHours, intMinutes, intSecondsintYears = 0intWeeks = 0intDays = 0intHours = 0intMinutes = 0intSeconds = 0strDow...
|如何|何计|计算|算下|下载|载一|一个|个文|文件|件需|需要|要多|多长|长时|时间|间？|？| -
如何编写TOP 10之类的排行榜？
【编程10000问】<% @ LANGUAGE="VBscript" %><% OPTION EXPLICIT %><!--#include file="DataConn.asp"--><!--#include file="FuncSet.asp"--><% dim rs,sql,IDa,IDb,s,RegUser,a,b,c Set rs=Server.CreateObject("ADODB.recordset")&...
|如何|何编|编写|写T|TO|OP|P1|10|0之|之类|类的|的排|排行|行榜|榜？|？| -
如何把一个Excel文件放到ASP页面中去？
【编程10000问】<%set xlApp = Server.CreateObject("Excel.Application")xlApp.Visible = false' 使服务端不出现Excel窗口.set myWorkbook = xlApp.Workbooks.Add' 建立一个worksheet.set myWorksheet = myWorkbook.Worksheets(1)myWorksheet.Range("A1").Value = '精彩春风通讯录'myWorksheet.Range("A1")...
|如何|何把|把一|一个|个E|Ex|xc|ce|el|l文|文件|件放|放到|到A|AS|SP|P页|页面|面中|中去|去？|？| -
如何把Recordset转换成彩色的XML文件
【编程10000问】<%@ codepage="65001" %><!-- #INCLUDE FILE="ADOVBS.INC" --><%Response.ContentType = "text/xml"' 如果不在 adovbs.inc 里,则设置一个常量. Set Con = Server.CreateObject( "ADODB.Connection" )Con.Open "Provider=sqloledb;UID=sa;DATABASE=...
|如何|何把|把R|Re|ec|co|or|rd|ds|se|et|t转|转换|换成|成彩|彩色|色的|的X|XM|ML|L文|文件|件| -
可以让程序告诉我详细的页面错误和数据库连接错误吗？
【编程10000问】<% If Err.Number <> 0 Then ' 错误处理. Response.Clear ' 清除缓冲区. Select Case Err.Number ' 根据不同错误分处理. &nbs...
|可以|以让|让程|程序|序告|告诉|诉我|我详|详细|细的|的页|页面|面错|错误|误和|和数|数据|据库|库连|连接|接错|错误|误吗|吗？|？| -
网上考试设计思路是怎样的？
【编程10000问】global.asa < script LANGUAGE=VBScript RUNAT=Server >Sub Application_OnStart dbPath = "DBQ=" & Server.Mappath("onlinetest.mdb") dbConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)}; " & dbPath ...
|网上|上考|考试|试设|设计|计思|思路|路是|是怎|怎样|样的|的？|？| -
如何实现网上考试？
【编程10000问】login.asp' 考生验证.<％@ Language=VBScript％><％name=trim(request("name"))passwd=trim(request("passwd"))if name<>"" and passwd<>"" then' 检查考生是否输入用户名和密码.Set conn = Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Acces...
|如何|何实|实现|现网|网上|上考|考试|试？|？| -
asp下载防盗链代码
【ASP编程】asp下载防盗链代码第一种: 终于对下载系统做了个防盗链措施，在下载的页面头部做了如下代码，相关代码如下： 复制代码 代码如下:<% From_url = Cstr(Request.ServerVariables("HTTP_REFERER")) Serv_url = Cstr(Request.Se...
asp下载防盗链代码
