自用的asp.net探针，可以测试asp.net写权限

微博文章来源:网络整理本站编辑:兰特

有些空间商的空间看起来用一些asp.net探针运行正常，其实只是验证了asp.net对空间的读取权限，asp.net的写入权限可能没有的，这样差不多所有使用的Access数据库的asp.net程序用不了，也生成不了静态页面。。用这个探针测试读取和写入权限都正常的话，基本这个空间才可以正常使用。

程序来由：一些网友购买的asp.net空间运行不了asp.net程序，但放在另外一些空间商那里却可以，两个空间商上的空间用其它asp.net探针都可以运行，为什么呢，原来不能用空间上设置了asp.net(win2000下)或NETWORK SERVICE(Win2003)账号对目录的写入权限没有开启，这样大部分的程序都使用不了，这就是做这个小程序的来由，程序下面的版本很快将加入更多探针功能。

把代码全部保存在一个AspxCheck.aspx文件里就可以了，放在空间上测试即可。。

CODE:

<%@ Import Namespace="System" %>
<%@ Import Namespace="System.IO" %>

<Script Language="VB" Runat="Server">
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Dim A As String
Dim Sw As StreamWriter

A = "写入字符：" & RndNum(4) & "，写入时间：" & Now() & " "
A = A & "恭喜你，你的空间支持Asp.net写入操作 "
A = A & "<a href='AspxCheck.aspx'>返回重来</a>"

Sw = New StreamWriter(Server.MapPath("AspxCheck.htm"), False, System.Text.Encoding.GetEncoding("GB2312"))
Sw.WriteLine(A)
Sw.Close()

Response.Redirect("AspxCheck.htm")
End Sub

Function RndNum(ByVal VcodeNum)
Dim Vchar As String = "0,1,2,3,4,5,6,7,8,9"
Dim VcArray() As String = Split(Vchar, ",") '将字符串生成数组
Dim VNum As String = ""
Dim i As Byte
For i = 1 To VcodeNum
Randomize()
VNum = VNum & VcArray(Int(9 * Rnd()))
Next
Return VNum
End Function
</Script>

<form method="post" runat="server">
乘风Asp.net探针: 
作者：乘风 
网址：<a href='http://www.qqcf.com' target='_blank'></a> 

一、Asp.net的读取权限 
你看到此页内容表示你的空间支持asp.net，有读取权限 
还请用下面的功能测试asp.net是否对空间用写的权限 
 
 
二、Asp.net的写入权限 
点击下面的按钮后，会跳转到AspxCheck.htm页面，页面上写入一个随机数字 
要是显示不了随机数字并报错，证明Asp.net对空间没有写入权限，无法写入 
Access数据库、生成或修改文件 
<asp:button runat="server" Text="验证Asp.Net写权限" ></asp:button>
 
程序说明： 
有些空间商的空间看起来用一些asp.net探针运行正常，其实只是验证了asp.net对空间的读取权限，asp.net的写入权限可能没有的，这样差不多所有使用的Access数据库的asp.net程序用不了，也生成不了静态页面。。用这个探针测试读取和写入权限都正常的话，基本这个空间才可以正常使用。
</form>

奇异新闻网|对错网|海鸟网