| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 446 人关注过本帖
标题:[求助]没有权限…………
只看楼主 加入收藏
hai20041004
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-3-14
收藏
 问题点数:0 回复次数:3 
[求助]没有权限…………

以下代码在本地可以执行,但是上传到asp空间执行不了,为什么……谢谢!
提示:
生成密钥失败.
70
没有权限

原代码如下:

<%
Const g_KeyLocation = "key.txt"
Const g_KeyLen = 512
On Error Resume Next
Call WriteKeyToFile(KeyGeN(g_KeyLen),g_KeyLocation)
if Err <> 0 Then
Response.Write "生成密钥失败." & "<P>"
Response.Write Err.Number & "<BR>"
Response.Write Err.Description & "<BR>"
Else
Response.Write "生成密钥成功."
End If
Sub WriteKeyToFile(MyKeyString,strFileName)
Dim keyFile, fso
set fso = Server.CreateObject("scripting.FileSystemObject")
set keyFile = fso.CreateTextFile(strFileName, true)
keyFile.WriteLine(MyKeyString)
keyFile.Close
End Sub
Function KeyGeN(iKeyLength)
Dim k, iCount, strMyKey
lowerbound = 35
upperbound = 96
Randomize
for I = 1 to iKeyLength
s = 255
k = Int(((upperbound - lowerbound) + 1) * Rnd + lowerbound)
strMyKey = strMyKey & Chr(k) & ""
next
KeyGeN = strMyKey
End Function
%>

搜索更多相关主题的帖子: 权限 
2007-03-28 20:21
hai20041004
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-3-14
收藏
得分:0 

怎么没有人啊…………论坛好冷清哦…………

2007-03-28 20:51
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
收藏
得分:0 

很有可能你的空间的服务器不支持FSO


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-03-29 08:47
hai20041004
Rank: 1
等 级:新手上路
帖 子:31
专家分:0
注 册:2007-3-14
收藏
得分:0 
以下是引用阳光白雪在2007-3-29 8:47:47的发言:

很有可能你的空间的服务器不支持FSO

谢谢…………

2007-03-29 13:41
快速回复:[求助]没有权限…………
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.016488 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved