问问大家,asp怎么啦?

ilmself0451 2002-02-16 07:14:38

我找了一个程序,想用这个论坛程序作模版.但是有一个问题,怎么在主页里加入代码,使浏览者输入用户名,密码后就可以直接进入论坛哪?
环境是asp + access .

...全文

37 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

ilmself0451 2002-02-17

打赏
举报

谢谢各位!!!

ilmself0451 2002-02-17

打赏
举报

谢谢各位!!!

ehom 2002-02-16

打赏
举报

最EASY的方法,把你找到的论坛程序的登录表单里的HTML代码加到你的主页里!

纪俊 2002-02-16

打赏
举报

这是个例子，自己研究一下吧，不难

纪俊 2002-02-16

打赏
举报

<%
Function checkpassword( ID, Pwd )
Dim conn, SQLstr, rs

Set conn = Server.CreateObject("ADODB.Connection")
SQLstr = "driver={Microsoft Access Driver (*.mdb)};Pwd=ding"
conn.Open SQLstr & ";dbq=" & Server.MapPath("users.mdb")

sql = "Select * From users Where ID='" & ID & "' And Pwd = '" & Pwd & "'"
Set rs = conn.Execute( sql )
If rs.EOF Then
checkpassword = False
Else
checkpassword = True
End If
End Function
%>

<%
If IsEmpty(Session("Passed")) Then Session("Passed") = False
Head = "请输入您的认证资料"
ID = Request("ID")
Pwd = Request("Pwd")

If ID = "" Or Pwd = "" Then
Head = "请输入您的认证资料"
ElseIf Not checkpassword( ID, Pwd ) Then
Head = "用户名称或密码错误"
Else
Session("Passed") = True
End If

If Not Session("Passed") Then
%>

<HTML>
<BODY BGCOLOR="#FFFddd">
<H2 ALIGN=CENTER><%=Head%><HR WIDTH="100%"></H2>

<CENTER>
<FORM Action=<%=Request.ServerVariables("PATH_INFO")%> Method=POST>
<TABLE BORDER=1 CELLSPACING=0 >
<TR>
<TD ALIGN=RIGHT>用户名称:</TD>
<TD><Input Type=Text Name=ID Size=12 Value=<%=ID%>></TD>
</TR>

<TR><TD ALIGN=RIGHT>密码： </TD>
<TD><Input Type=Password Name=Pwd Size=12 Value=<%=Pwd%>></TD>
</TR>
</TABLE><P>
<Input Type=Submit Value=" 确定 ">
</FORM>
<HR WIDTH="100%">

</CENTER>
</BODY>
</HTML>

<%
Response.End
End If
%>
<HTML>
<BODY BGCOLOR="#FFFFdd">
<H2>加密的网页 <HR></H2>
<P>这个网页十分简单，只要在原始码的最前面加上以下标识：</P>
<UL>
<P><FONT COLOR="#FF0000"></FONT></P>
</UL>
<P>就已经具备加密的功能。快快试试吧！
<HR WIDTH="100%"></P>
</BODY>
</HTML>

纪俊 2002-02-16