asp文档中心

目前，最常用的三种动态网页语言有ASP(Active Server Pages),JSP(Java Server Pages),
PHP (Hypertext Preprocessor)。

简介

　　ASP全名Active Server Pages，是一个WEB服务器端的开发环境，利用它可以产生和运
行动态的、交互的、高性能的WEB服务应用程序。ASP采用脚本语言VB Script（Java script
）作为自己的开发语言。

　　PHP是一种跨平台的服务器端的嵌入式脚本语言. 它大量地借用C,Java和Perl语言的语法
, 并耦合PHP自己的特性,使WEB开发者能够快速地写出动态生成页面.它支持目前绝大多数数
据库。还有一点，PHP是完全免费的，不用花钱，你可以从PHP官方站点(http://www.php.ne
t)自由下载。而且你可以不受限制地获得源码，甚至可以从中加进你自己需要的特色。

　　JSP 是Sun ......

txt文件是下面这样的，
一行一条数据，用逗号分隔
下面写出asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<%
filespec=server.mappath("txt.txt")
Const ForReading = 1
Dim fso, theFile, retstring
Set fso = CreateObject("Scripting.FileSystemObject")
Set theFile = fso.OpenTextFile(filespec, ForReading, False)
i=0
Do While theFile.AtEndOfStream <> True
session("line"&i) = theFile.ReadLine
i=i+1
Loop
theFile.Close
ReadEntireFile = retstring
for j=0 to i-1
arry=split(session("line"&j),",")
'arry(0),arry(1),arry(2)
'分别为:张三男 30岁
'然后进行数据存储
set rs3=server.createobject("adodb.recordset")
sql="select * from keywords"
rs3.open sql,conn,3,3
rs3.addnew
rs3("text")=arry(0)
rs3("url")=arry(1)
rs3.update
response.write session("line"&j)+"<br>"
next
%>
原文地址:http://www. ......

发一个标准的数据库连接代码。希望对大家有帮助。
<%
option explicit
dim startime,endtime,conn,connstr,db
startime=timer()
'更改数据库名字
db="data/dvBBS5.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
conn.Open connstr
function CloseDatabase
Conn.close
Set conn = Nothing
End Function
%> ......

在提交页面中验证session("GetCode")
<%@CodePage="65001"%>
<%
Call Com_CreatValidCode("GetCode")
Sub Com_CreatValidCode(pSN)
    ' 禁止缓存
    Response.Expires = -9999
    Response.AddHeader "Pragma","no-cache"
    Response.AddHeader "cache-ctrol","no-cache"
    'Response.ContentType = "Image/BMP"
    Randomize
    Dim i, ii, iii
    Const cOdds = 4 ' 杂点出现的机率
    Const cAmount = 13 ' 文字数量
    Const cCode = "0123456789+=?"
    ' 颜色的数据(字符，背景)
    Dim vColorData(1),vColorRandom(10)
    'vColorData(0) = ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) & ChrB(Int(Rnd*155)+100) ' 蓝0，绿0，红0（黑色）
    vColorRandom(0)=ChrB(150) & ChrB(0) & ChrB(0)
    vColorRandom(1)=ChrB(0) & C ......

<%
   '以下是试用版代码，是固定的代码，只有正式版才可自动从后台数据库中读取图片。
   piao1="images/1.jpg"
   piao1url=""
   piaos1="图1"
   piao2="images/2.jpg"
   piao2url=""
   piaos2="图2"
   piao3="images/3.jpg"
   piao3url=""
   piaos3="图3"
   piao4="images/4.jpg"
   piao4url=""
   piaos4="图4"
   piao5="images/5.jpg"
   piao5url=""
   piaos5="图5"

    pic=piao1&"|"&piao2&"|"&piao3&"|"&piao4&"|"&piao5
       link=piao1url&"|"&piao2url&"|"&piao3url&"|"&piao4url&"|"&piao5url
   texts=piaos1&"|"&piaos2&"|"&piaos3&"|"&piaos4&"|"&piaos5
%>

<script language="" type="text/javascript">
<!--
......

<%
Const New_img=10
set rs_Product=server.createobject("adodb.recordset")
sqltext="select top " & New_img & " * from 0791idc_Product order by ID"
rs_Product.open sqltext,conn,1,1
if not rs_Product.EOF then%>
<div align='center' id='demo' style='overflow:hidden;height:200px;width:700px;'>
<table align='center' cellpadding='0' cellspace='0' border='0'>
<tr>
<td id='demo1' valign='top'>
  <table width='100%' cellpadding='0' cellspacing='0' border='0' align='center'>
  <tr valign='top'>
<%
while not rs_Product.EOF
fileExt=lcase(getFileExtName(rs_Product("DefaultPicUrl")))
%>
   <td align='center'>
    <TABLE width=100% border=0 align=center cellPadding=0 cellSpacing=0>
    <TR>
     <TD align="c ......

ASP、JSP与PHP 你会选谁

ASP、JSP与PHP 你会选谁

ASP、JSP与PHP 你会选谁

asp分行读取txt文件，有分隔符，存储到access

asp连接数据库代码

asp验证码（加法运算）

asp图片切换

asp图片滚动