asp基础代码（asp使用）

本篇文章给大家谈谈asp基础代码，以及asp使用对应的知识点，希望对各位有所帮助，不要忘了收藏本站喔。

本文目录一览：

• 1、求比较基础的asp程序代码
• 2、求一段简单的asp代码
• 3、ASP基础代码，部分问题求助。
• 4、ASP网页程序设计中10个非常有用的实例代码

求比较基础的asp程序代码

On Error Resume Next

ConnString = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" Server.MapPath("数据库路径.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")

Conn.Open ConnString

If Err.Number 0 Then

 Err.Clear

 Set Conn = Nothing

 Response.Write "网站数据库连接错误或网站关闭！"

 Response.End

End If

Set Rs=Server.CreateObject("ADODB.RecordSet")

Form_Badword = "'|%||*|#|@|(|)|=|select|and|set|delete|Count"

Query_Badword = "'|and|select|update|chr|delete|%20from|;|insert|mid|master|set|chr(37)|=|Count"

Form_BadwordA = Split(Form_Badword, "|")

Query_BadwordA = Split(Query_Badword,"|")

UserIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

If UserIP = "" Then UserIP = Request.ServerVariables("REMOTE_ADDR")

ClientIP = Replace(UserIP,"'",Chr(34))

If ClientIP "" Then

 Rs.Open "Select * From BlackRoom Where SqlInIP='"ClientIP"'",Conn,3

  If Rs.RecordCount 0 Then

   Response.Write "安全提示：你的IP ("ClientIP") 已被本站锁定，请联系本站管理员！"

   Response.End

  End If

 Rs.Close

End If

If Request.Form "" Then

 For Each AntiPost In Request.Form

For Antixh = 0 To UBound(Form_BadwordA)

   If InStr(LCase(Request.Form(AntiPost)),Form_BadwordA(Antixh)) 0 Then

    If WriteSql Then

     Rs.Open "BlackRoom",Conn,1,3

      Rs.AddNew

      Rs("SqlInIP") = ClientIP

      Rs("URL") = Request.ServerVariables("URL")

      Rs("PFS") = "POST"

      Rs("PName") = AntiPost

      Rs("PValue") = Request.Form(AntiPost)

      Rs("PTime") = Now

      Rs.Update

     Rs.Close

    End If

    Response.Write "非法操作，系统记录如下：br"

    Response.Write "操作IP：" ClientIP "br"

    Response.Write "操作时间：" Now "br"

    Response.Write "操作页面：" Request.ServerVariables("URL") "br"

    Response.Write "操作方式：POST方式br"

    Response.Write "提交参数：" AntiPost "br"

    Response.Write "提交数据：" Request.Form(AntiPost) "br"

    Response.End

   End If

  Next

 Next

End If

Set Rs = Nothing

Conn.Close

Set Conn = Nothing

求一段简单的asp代码

这个需要用到AJAX，

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%

html

head

meta http-equiv="Content-Type" content="text/html; charset=gb2312"

title无标题文档/title

script

function geta()

{

if (window.XMLHttpRequest)

{// 针对 IE7+, Firefox, Chrome, Opera, Safari 的代码

xmlhttp=new XMLHttpRequest();

}

else

{// 针对 IE6, IE5 的代码

xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");

}

xmlhttp.onreadystatechange=function()

{

if (xmlhttp.readyState==4 xmlhttp.status==200)

{

document.getElementById("a").value=xmlhttp.responseText;

}

}

xmlhttp.open("GET","a/1.asp",true);

xmlhttp.send();

}

function getb()

{

if (window.XMLHttpRequest)

{// 针对 IE7+, Firefox, Chrome, Opera, Safari 的代码

xmlhttp1=new XMLHttpRequest();

}

else

{// 针对 IE6, IE5 的代码

xmlhttp1=new ActiveXObject("Microsoft.XMLHTTP");

}

xmlhttp1.onreadystatechange=function()

{

if (xmlhttp1.readyState==4 xmlhttp1.status==200)

{

document.getElementById("b").value=xmlhttp1.responseText;

}

}

xmlhttp1.open("GET","b/2.asp",true);

xmlhttp1.send();

}

function js()

{

var a=document.getElementById("a").value;

var b=document.getElementById("b").value;

var s=b/a;

document.getElementById("result").value=s;

}

/script

/head

body onload="geta();getb();js();"

input type="text" id="a"input type="text" id="b"结果为：input type="text" id="result"

/body

/html

ASP基础代码，部分问题求助。

你的句子

response.Write("鎴戜细浜?) 没有结束。

应该为：

response.Write("具体内容")

少了后面的引号

ASP网页程序设计中10个非常有用的实例代码

ASP网页程序设计中10个非常有用的实例代码

ASP可以与Web数据库以及其它程序进行交互，是一种简单、方便的编程工具。下面由我带来ASP网页程序设计中10个非常有用的实例代码。

1.如何用Asp判断你的网站的.虚拟物理路径

答：使用Mappath方法： %= Server.MapPath("\")%

2.我如何知道使用者所用的浏览器

答：使用the Request object方法：

3.如何计算每天的平均反复访问人数

答：解决方法

% startdate=DateDiff("d",Now,"01/01/1990")

if strdate 0 then startdate=startdate*-1

avgvpd=Int((usercnt)/startdate) %

显示结果

% response.write(avgvpd) %

that is it.this page have been viewed since November 10,1998

4.如何显示随机图象

% dim p,ppic,dpic

ppic=12

randomize

p=Int((ppic*rnd)+1)

dpic="graphix/randompics/"p".gif"

%

显示

img src=" %=dpic% "

5.如何回到先前的页面

答： a href=" %=request.serverVariables("Http_REFERER")% " preivous page /a

或用图片如： img src="arrowback.gif" alt=" %=request.serverVariables("HTTP_REFERER")% "

6.如何确定对方的IP地址

答： %=Request.serverVariables("REMOTE_ADDR)%

7.如何链结到一副图片上

答： % @Languages=vbscript %

% response.expires=0

strimagename="graphix/errors/erroriamge.gif"

response.redirect(strimagename)

%

8.强迫输入密码对话框

答：把这句话放载页面的开头

% response.status="401 not Authorized"

response.end

%

9.如何传递变量从一页到另一页

答：用 HIDDEN 类型来传递变量

% for each item in request.form %

input namee=" %=item% " type="HIDDEN"

value=" %=server.HTMLEncode(Request.form(item)) % "

% next %

/form

10.怎样才能使得htm文件如同asp文件一样可以执行脚本代码

答：Internet Sevices Manager - 选择default web site - 右鼠键- 菜单属性-〉主目录- 应用程序设置(Application Setting)- 点击按钮 "配置"- app mapping - 点击按钮"Add" - executable browse选择 \WINNT\SYSTEM32\INETSRV\ASP.DLL EXTENSION 输入 htm method exclusions 输入PUT.DELETE 全部确定即可。但是值得注意的是这样对htm也要由asp.dll处理，效率将降低。

;

关于asp基础代码和asp使用的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。