复制代码 代码如下:if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[ob_ca...
写ASP程序时,一般情况总是使用的VBScript,不过也不只是这一种选择,也可以用JScript。但在用JScript作为ASP的语言时,比用VBScript有一些小小的不方便,比如RecordSet的GetRows方法。 在ASP中操作数据库,一般都要用到...
使用asp尽量减少服务器端的工作量,这样就应该多使用javascript,把所有提交字段使用javascript或vbscript检测后提交给服务器,这样服务器就不必再作检测,而在提交时可能会有人修改script从本地提交,这样存在安全提交的问...
问:为什么我的记录集的RecordCount值总是返回-1? 答:你应当使用这种模式来打开存取数据库的记录集: rec.open strSQL,conn,1,1 其中的strSQL...
<%mytime=rs("time") '数据库中保存时间nowtime=now() '当前时间if datediff("d",mytime,nowtime)<1 then '比较当前时间和数据库中...
getimage.asp<% Option ExplicitDim strBuffer, FilePathstrBuffer = Request.ServerVariables("HTTP_REFERER")strBuffer = mid(strBuff...
< html> < head> < meta http-equiv="Content-Type" content="text/html; charset=gb2312">&...
response.buffer=true' 应用缓存技术.dim lostnum' 防止dmax过大而dstep过小.dim shownumdelayshow(dstep,dmax)sub delayshow(dstep,dmax)' dmax表示要处理多少d...
<%Set HttpObj = Server.CreateObject("AspHTTP.Conn")dim docnumdocnum = 101do while docnum <> 111 Response.Write docnumHTTP...
<html><head><title>撼雪喷云之答复用户信息</title></head><body><form action="getdada.asp" method="get"&...
一个方法是利用Index Server query object和参数:<% Set Q= Sever.CreatObject("ixsso.Query") ' 创建查询对象. Set Util=...
<!--#include file="top.inc"--><%u_title=request.form("u_title")' 检查标题是否被输入.if u_title = "" then%><form method="POST...
sub chkIP(boardid) dim rsIP dim ipArr dim ignored dim i dim ip dim sql ip=Request.ServerVariables("REMO...
formhandler.asp<html><body><%Dim RequestMethod RequestMethod = Request.ServerVariables("REQUEST_ METHOD") ' 获取REQUE...
postinfo.htm<head><title>星河影动之回应用户请求信息</title></head><body><form action="postdata.asp" method="po...
<html><head><title>千花飞舞之信息随机显示</title></head><body><% randomizerandomnum=int(rnd*6)+1' 随机发生...
<html><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#...
<%Application.LockIF NOT isArray( Application( "lastTen" ) ) THEN DIM dummy( 10, 3 ) Application( "lastTen" ) = dum...
domainname.asp<form method="POST"> 请输入域名:<input type="text" name="DomainName" size="20"> <...
<% function checkisUrl(tmpString) dim c,i checkisUrl = true tm...