自用的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() & "<br><br>"
A = A & "<font color=ff0000>恭喜你，你的空间支持Asp.net写入操作</font><br><br>"
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 id="Form1" method="post" runat="server">
乘风Asp.net探针:<br>
作者：乘风<br>
网址：<a href='http://www.qqcf.com' target='_blank'>http://www.qqcf.com</a><br><br>
一、<b>Asp.net的读取权限</b><br><br>
你看到此页内容表示你的空间支持asp.net，有读取权限<BR>
还请用下面的功能测试asp.net是否对空间用写的权限<BR>
<BR>
<BR>
二、<b>Asp.net的写入权限</b><br><br>
点击下面的按钮后，会跳转到AspxCheck.htm页面，页面上写入一个随机数字<BR>
要是显示不了随机数字并报错，证明Asp.net对空间没有写入权限，无法写入<BR>
Access数据库、生成或修改文件<BR>
<asp:button id="Button1" runat="server" Text="验证Asp.Net写权限" OnClick="Button1_Click"></asp:button></FONT></FONT>
<br><br><br>
程序说明：<br>
有些空间商的空间看起来用一些asp.net探针运行正常，其实只是验证了asp.net对空间的读取权限，asp.net的写入权限可能没有的，这样差不多所有使用的Access数据库的asp.net程序用不了，也生成不了静态页面。。用这个探针测试读取和写入权限都正常的话，基本这个空间才可以正常使用。
</form>[/code]
