再次问一个网页制作问题

sizz123

ar fso, f1;
fso = new ActiveXObject("Scripting.FileSystemObject");
f1 = fso.OpenTextFile("c:\\testfile.txt", true);

那么,如何将f1的内容,放到网页中的一个文本域中?

sizz123

不能跨平台,感觉不太影响什么.
想做个文章发布系统,让网页直接读服务器中的文件

冰城飞狐

某正在研究VBScript而忘掉JavaScript的狐狸飘过~~

sizz123

再问一个:如何检测登陆状态

用的是access asp javascrite

风林火山

{/gg}我一般用session判断登陆，登陆就赋值给Session，一旦用户退出就清空……然后加个判断。

sizz123

以下引用风林火山于2008-10-27 12:10:53的发言：

我一般用session判断登陆，登陆就赋值给Session，一旦用户退出就清空……然后加个判断。


[本贴由作者于 2008-10-27 12:15:25 最后编辑]

我是个初学者,能不能给个范例

风林火山

以下引用sizz123于2008-10-27 12:34:02的发言： 以下引用风林火山于2008-10-27 12:10:53的发言： 我一般用session判断登陆，登陆就赋值给Session，一旦用户退出就清空……然后加个判断。 [本贴由作者于 2008-10-27 12:15:25 最后编辑] 我是个初学者,能不能给个范例

做了三个asp页。 1. index.asp 登陆界面

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
2. <html>
3. <head>
4. <title>用户登陆界面</title>
5. <SCRIPT LANGUAGE="JavaScript">
6. function s() {
7. user_login.user.focus();
8. }
9. </SCRIPT>
10. </head>
11. <body onload="s();">
12. <form name="user_login" method="post" action="login.asp">
13. <table width="100%" border="0" cellpadding="0" cellspacing="0">
14. <tr>
15. <td align="right" valign="middle" height="40">&nbsp;</td>
16. <td align="left" valign="middle" height="40">&nbsp;</td>
17. </tr>
18. <tr>
19. <td align="right" valign="middle" height="40">&nbsp;</td>
20. <td align="left" valign="middle" height="40">&nbsp;</td>
21. </tr>
22. <tr>
23. <td align="right" valign="middle" height="40">&nbsp;</td>
24. <td align="left" valign="middle" height="40">&nbsp;</td>
25. </tr>
26. <tr>
27. <td align="right" valign="middle" height="40">&nbsp;</td>
28. <td align="left" valign="middle" height="40">&nbsp;</td>
29. </tr>
30. <tr>
31. <td width="50%" align="right" valign="middle" height="40">用户名：</td>
32. <td width="67%" align="left" valign="middle" height="40">
33. <input type="text" name="user" size="18"></td>
34. </tr>
35. <tr>
36. <td width="50%" align="right" valign="middle" height="40">密码：</td>
37. <td width="67%" align="left" valign="middle" height="40">
38. <input type="password" name="password" size="18"></td>
39. </tr>
40. <tr align="center" valign="middle">
41. <td height="36" align="right">
42. <input name="login" type="submit" value="登陆"></td>
43. <td height="36" align="left">
44. &nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input name="cancel" type="reset" value="取消"></td>
45. </tr>
46. </table>
47. </form>
48. </body>
49. </html>　

复制代码

2. login.asp 登陆信息判断的，登录名：sizz123 密码:123123

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
2. <html>
3. <head>
4. <title>用户信息判断</title>
5. </head>
6. <body>
7. <% dim id,pw
8. id=request.Form("user")
9. pw=request.Form("password")
10. if trim(id)&"x"="x" or trim(pw)&"x"="x" then
11. Response.Write("<script language=JavaScript>alert('请您输入用户名与密码');document.location.href='javascript:window.history.go(-1);';</script>")
12. response.end
13. end if
15. if id = "sizz123" and pw = "123123" then
16. Session("id")=id
17. response.Redirect "sizz123.asp?action=login"
18. response.end
19. else
20. Response.Write("<script language=JavaScript>alert('您的用户名和密码错误！');document.location.href='javascript:window.history.go(-1);';</script>")
21. response.end
22. end if
23. %>
24. </body>
25. </html>

复制代码

3.sizz123.asp 登陆后界面

1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
2. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
3. <html xmlns="http://www.w3.org/1999/xhtml">
4. <head>
5. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
6. <title>登陆成功</title>
7. <% session.Timeout="600" %>
8. </head>
9. <body>
10. <%
11. If Session("id")="" Then
12. Response.Write("<script language=JavaScript>alert('您还没有登陆！');document.location.href='index.asp';</script>")
13. Response.End
14. End if
15. %>
16. <%if Request.QueryString("action")="logout" Then
17. Session.Abandon()
18. Response.Redirect("index.asp")
19. end if%>
20. <% if Request.QueryString("action")="login" Then %>
21. <center><h1>欢迎您:<%=session("id")%></h1>
22. <a href="sizz123.asp?action=logout">退出</a>
23. </center>
24. <%end if%>
25. </body>
26. </html>

复制代码

三文件放在同一目录下好了。 用户登陆以后按了退出，如果再登陆sizz123.asp界面的话，就会提示用户先登陆。 如果没有按退出，直接关闭了游览器，再登陆sizz123.asp的话，也会提示用户先登陆。 ASP我是自学的，如有错误请大家指教！

yangff

呵呵，CMS吗？ js不行要asp 建议你学jsp或者dot net或者php asp的mssql很难找，而且外国的几乎是php <% Function LoadFile(ByVal File) Dim objStream On Error Resume Next Set objStream = Server.CreateObject("ADODB.Stream") If Err.Number=-2147221005 Then Response.Write " 非常遗憾,您的主机不支持ADODB.Stream,不能使用本程序" Err.Clear Response.End End If With objStream .Type = 2 .Mode = 3 .Open .LoadFromFile Server.MapPath(File) If Err.Number<>0 Then Response.Write " 文件"&File&"无法被打开，请检查是否存在!" Err.Clear Response.End End If .Charset = "GB2312" .Position = 2 LoadFile = .ReadText .Close End With Set objStream = Nothing End Function %>