搜索列表
-
如何验证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问】<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dummy' 创建或者取得最近10个Application数组.END IF lastTen = Application( "lastTen" )Application.UnLockIF lastTen( 9, 0 ) <> ...
|如何|何显|显示|示最|最后|后十|十名|名来|来访|访者|者？|？| -
如何显示数据库的结构？
【编程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")&...
|如何|何显|显示|示数|数据|据库|库的|的结|结构|构？|？| -
如何取得服务器上的用户组列表？
【编程10000问】domainname.asp<form method="POST"> 请输入域名:<input type="text" name="DomainName" size="20"> <input type="submit" value="提交" name="B1"> <input type="reset" value="重写" name="B2"></form><%if i...
|如何|何取|取得|得服|服务|务器|器上|上的|的用|用户|户组|组列|列表|表？|？| -
如何判断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格|格式|式是|是否|否符|符合|合规|规范|范？|？| -
如何读取一个.ini文件？
【编程10000问】<OBJECT ID="agobjOraSession" RUNAT="Server" PROGID="OracleInProcServer.XOraSession" SCOPE="Application"></OBJECT><script LANGUAGE=VBScript RUNAT=Server>Const CONST_FL_NAME = "\GetAttributeCode.ini"Const CON...
|如何|何读|读取|取一|一个|个i|in|ni|i文|文件|件？|？| -
如何把一个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页|页面|面中|中去|去？|？| -
网上考试设计思路是怎样的？
【编程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+FSO生成JS文件
【ASP编程】复制代码 代码如下:<!--#include file="conn.asp"--> <% set js = server.CreateObject("ADODB.RecordSet") sql="select top 10 * from article order by id desc" set js =&...
用ASP+FSO生成JS文件 -
把无限级分类生成数组
【ASP编程】把无限级分类循环出来确实是一件头疼的事情。 比如，我们要循环出一个SELECT,或一个TABLE，要写一大堆判断。 有没好点的办法呢？ 我的做法是生成数组，可以重复调用，直接循环数组就行了。 为了方便，我把它写成了类。 class.asp 返回所有分类的数组,并按顺序排列 有4个属性： 复制代码 代码如下:set aa=new&...
把无限级分类生成数组 -
如何判断电子邮件的地址格式是否正确？
【编程10000问】第一种办法：<% Function IsValidEmail(Email) ValidFlag = False If (Email <> "") And (InStr(1, Email, "@") > 0) And (InStr(1, Email, ".") > 0) Then atCount = 0 SpecialFlag = False For atLoop = 1 To Len(Email) atChr = Mid(Email, atLoop, 1) If atChr ...
|如何|何判|判断|断电|电子|子邮|邮件|件的|的地|地址|址格|格式|式是|是否|否正|正确|确？|？|
