一种我未用过的方法，但现在觉得很爽
1
<%@language=vbscript codepage=936 %>
2<%
3option explicit
4response.buffer=true
5dim conn
6dim connstr
7dim db
8db="yipinjia.asp"
9Set conn = Server.CreateObject("ADODB.Connection")
10connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
11conn.Open connstr
12
13%>
14
15<%
16Rem 判断发言是否来自外部
17
Function ChkPost()function ChkPost()
18
dim server_v1,server_v2
19 chkpost=false
20 server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
21 server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
22 if mid(server_v1,8,len(server_v2))<>server_v2 then
23 chkpost=false
24 else
25 chkpost=true
26 end if
27
end function
28%>
posted @
2006-03-16 00:34 The Game, tomtom 阅读(204) |
评论 (0) |
编辑 收藏 在实现页面跳转的时候，有些人喜欢用Response.Redirect，而有些人则喜欢用Server.Transfer。大部分时间似乎这两种方法都可以实现相同的功能，那究竟有区别吗？
查了些文档，发现两者区别还是很明显的。根本上，Response是叫浏览器去重新转向到指定的网页，而Server自然是发生在服务器端为主了，因此会有以下区别：
1. Server.Transfer只能够转跳到本地虚拟目录指定的页面，而Response.Redirect则十分灵活；
2. Server.Transfer可以将页面参数方便传递到指定页面；
3. 使用时，Server.Transfer跳到别的页面后，浏览器显示的地址不会改变，有时反而会造成误会，当然也有些场合需要这样的效果；
4. Server.Transfer可以减少客户端对服务器的请求；
posted @
2006-03-11 12:12 The Game, tomtom 阅读(192) |
评论 (0) |
编辑 收藏
安装asp.net环境,首先先安装IIS.
一 IIS安装方法:
1.选择"控制面板".
2.点"添加删除软件".
3.选择"添加组件",把系统盘放的光驱中.
4.选中IIS点下一步就可以了.
5.在浏览器中输入"
http://localhost "测试IIS是否安装成功.
到这步你可以把你的asp网页放到系统盘(一般是C盘,我的是F盘)的C:\Inetpub\wwwroot的文件夹中了。
比如你你C:\Inetpub\wwwroot中建了一个ip363,在浏览器中输入 http://localhost/ip363 就可以了.
二 配置asp.net环境:
下载mdac安装:
直接下载2.8中文版：
http://download.microsoft.com/download/8/b/6/8b6198c0-fe96-4811-9d81-d5c76dd5fea8/MDAC_TYP.EXE
然后下载.NET Framework 1.1版可再发行组件包
http://download.microsoft.com/download/7/b/9/7b90644d-1af0-42b9-b76d-a2770319a568/dotnetfx.exe
然后下载.NET Framework SDK1.1安装
下载1.1简体中文版：
http://download.microsoft.com/download/0/f/e/0fecf85c-fb50-4ca9-adf2-c4be7ec9b454/setup.exe
最后安装简体中文语言包
http://download.microsoft.com/download/4/b/c/4bce2f4b-548e-4e36-a3f7-46d79a6abd39/langpack.exe
如果你没法运行msi文件，请安装以下软件
http://www.microsoft.com/downloads/details.aspx?displaylang=en&;FamilyID=4B6140F9-2D36-4977-8FA1-6F8A0F5DCA8F
最后如果在程序那里看到 Microsoft .NET Framework SDK 就安装完成了.
也可以安装Microsoft VS.NET 这样写asp.net代码就简单方便了
posted @
2006-02-14 16:40 The Game, tomtom 阅读(243) |
评论 (0) |
编辑 收藏1<%@ page language="vb" %>
2<h1>使用Choose函数简化Select
Case语句</h1>
3<%
4Dim intA as integer=2, strTemps as string
5strTemps=Choose(intA,"一","二","三","四","五")
6response.write("intA的值是" & intA & "时,结果为"&strTemps)
7%> Choose函数语法: Choose(数值变量,返回值1,返回值2,返回值3,......)
注意intA一定要是数值变量!
response.write()里面如果是字符串或html语句,要加上"",是变量则加上&, 句中strTemps在右侧则只需加一个&
posted @
2006-02-08 16:20 The Game, tomtom 阅读(818) |
评论 (0) |
编辑 收藏1<%@ page language="vb" %>
2<h1>使用Iif()函数简化IfThen语句</h1>
3<%
4Dim intA As integer=11, strTemps As String
5strTemps=Iif(intA>10,"intA变量的值大于10","变量的值小于10")
6response.write(strTemps)
7%> Iif函数语法： Iif(条件式,语句1,语句2)
语句1：当条件式运算结果为True值的表达式或变量内容
语句2：当条件式运算结果为False值的表达式或变量内容
respose.write()里面可以直接写变量的名
posted @
2006-02-08 15:55 The Game, tomtom 阅读(438) |
评论 (0) |
编辑 收藏
1<body>
2<h1>获得数组维数的最大索引值</h1>
3<%
4dim arrayA(10) as integer
5response.write("获取一维数组的最大索引值,结果为" & ubound(arrayA) & "<br>")
6dim arrayB(15,20) as integer
7response.write("获取二维数组第一维度的最大索引值,结果为"& ubound(arrayB,1) &"<br>")
8response.write("获取二维数组第二维度的最大索引值,结果为"& ubound(arrayB,2)&"<br>")
9%>
10</body>
Dim ArrayA as integer() = (1,2,3,4,5)
相当于声明一个ArrayA(4)的一维数组
posted @
2006-02-06 20:44 The Game, tomtom 阅读(651) |
评论 (0) |
编辑 收藏
只是每天只允许200个用户注册,大家耐心点试咯.
posted @
2006-02-05 22:01 The Game, tomtom 阅读(546) |
评论 (2) |
编辑 收藏<%@ page language="vb" %>
<html>
<head>
<title>
vb.net操作符号综合范例
</title>
</head>
<body>
<%
dim intA as integer = 10, intB as integer = 5, intC as integer = 3
dim strA as string = "ASP.NET", strB as string = "VB.NET"
dim blnA as boolean = true, blnB as boolean = false
response.write("条件设置:<br>")
response.write("整数条件: intA=" & intA & ",intB=" & intB & ",intC=" & intC & """<br>")
response.write("字符串条件: strA=""" & strA & """,strB=""" & strB & """<br>")
response.write("布尔代数:blnA=" & blnA & "blnB=" & blnB & "<br><b>")
response.write("括号优先级:")
response.write("(intA - intB)*intC结果为:"&((intA-intB)*intC)&"<br>")
response.write("算数操作符:")
response.write("intA-intB*intC结果为:"&(intA-intB*intC)&",<br>")
response.write("比较操作符:")
response.write("intA>intB的结果为:" &(intA>intB)& ",")
response.write("strA<>strB的结果为 " & (strA<>strB)& "<br>")
response.write("逻辑操作符:")
response.write("blnA and blnB的结果为" & (blnA and blnB) & ",")
response.write("blnA or blnB的结果为" & (blnA or blnB) & "<br>")
%>
</body>
</html>
posted @
2006-02-05 21:36 The Game, tomtom 阅读(681) |
评论 (1) |
编辑 收藏 1<% @page language="vb" %>
2<html>
3<head>
4<title>
5编写一个asp.net程序代码
6</title>
7</head>
8<body>
9<%
10dim strAuthorName
11dim intDefaultSize as integer
12dim strFontName as string="隶书"
13const strTitle as string="编写""一个""asp.net程序"
14const strFontColor as string="purple"
15strAuthorName=10
16strAuthorName="tomtom"
17intDefaultSize= 5
18response.write("<font face=" & strFontName & " size=" & intDefaultSize & " color=" & strFontColor & ">")'这里的"和&之间一定要有一个空格!!!我不加空格的话就调试不到,不知道为什么,有没有高手可以告诉我?
19response.write("标题文字:" & strTitle & "<br>")
20response.write("作者:" & strAuthorName & "<br>")
21response.write("默认中文字体:" & strFontName & "<br>")
22response.write("默认字号:" & intDefaultSize & "<br>")
23response.write("</font>")
24%>
25</body>
26</html>
posted @
2006-02-05 21:36 The Game, tomtom 阅读(239) |
评论 (1) |
编辑 收藏
<% @ page language="VB" %>
<html>
<head>
<title>
我的第一个asp.net程序代码
</title>
</head>
<body>
<%
Dim i as integer
For i = 1 to 5 %>
<font size= <% =i %>>我的第一个asp.net程序代码<br></font>
<%
Next
Response.write("编写第一个asp.net程序!")
%>
</body>
</html>
<font size=<%=i%>>我的第一个asp程序</br></font>
posted @
2006-02-05 21:35 The Game, tomtom 阅读(171) |
评论 (0) |
编辑 收藏