|
 | 作者: zml2236 [zml2236]
 论坛用户 |
登录 |
| 我的第一个ASP程序，我也不知道该叫什么里面有ASP的初级应用，我写的时候只是为了尝试，所以程序很烂，希望大家一起讨论，请各位多多指教! --------------说明一下文件都在同一个目录下---------------- fconn.asp 数据库连接文件 free.mdb 数据库文件 in.asp 发帖文件 showbody.asp 帖子内容 showtitle.asp 帖子列表 del.asp 删帖文件 up.asp 修改帖子文件 ---------------------------------- ---------------fconn.asp---------- <% Dim fconn,connstr connstr="Driver={Microsoft Access Driver (*.mdb)};Dbq="&Server.Mappath("free.mdb") Set fconn=Server.Createobject("ADODB.connection") fconn.Open connstr %> ----------------------------------- ---------------in.asp-------------- <% option explicit%> <%Response.Buffer=True%> <!--#Include file="fconn.asp"--> <HTML> <HEAD></HEAD> <BODY> <CENTER> <FONT SIZE="7" FACE="楷体_GB2312">发表帖子</FONT> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <TABLE BORDER="0" WIDTH="80%"> <FORM ACTION="" METHOD="post" NAME="in"> <TR> <TD>文章标题：</TD><TD><INPUT TYPE="text" NAME="title" SIZE=80>**</TD> </TR> <TR> <TD>文章作者：</TD><TD><INPUT TYPE="text" NAME="username" SIZE=80>**</TD> </TR> <TR> <TD>发表文章：</TD><TD><TEXTAREA NAME="body" ROWS="8" COLS="81" WRAP="hard"></TEXTAREA></TD> </TR> </TABLE> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <INPUT TYPE="submit" VALUE=" 确 定 "></FORM> </CENTER> <% Dim intitle,inusername,inbody,instr intitle=Request("title") inusername=Request("username") inbody=Request("body") If intitle<>"" and inusername<>"" and inbody<>"" Then instr="Insert Into freemin(title,body,username) Values('"&intitle&"','"&inbody&"','"&inusername&"')" fconn.Execute(instr) Response.Redirect"showtitle.asp" Else Response.Write"<CENTER>请填写完整</CENTER>" End If %> <CENTER><A HREF="showtitle.asp">返回列表<A> </BODY> </HTML> ------------------------------------ --------------showbody.asp---------- <% option explicit%> <!--#Include file="fconn.asp"--> <HTML> <HEAD> <% Dim show,showid showid=Request("showid") Set show=fconn.Execute("Select * From freemin Where freeid="&showid&" Order By date desc") %> </HEAD> <BODY> <CENTER> <FONT SIZE="7" FACE="楷体_GB2312">帖子内容</FONT> <TABLE BORDER="0" WIDTH="80%"><HR></TABLE> <TABLE BORDER="0" WIDTH="80%" BGCOLOR="silver" CELLSPACING="1"> <TR BGCOLOR=""> <TD>标题：<%=show("title")%></A></TD> <TD ALIGN=RIGHT><%=show("username")%> 发表于<%=show("date")%> |<A HREF="up.asp?upid=<%=show("freeid")%>">修改<A>|<A HREF="del.asp?delid=<%=show("freeid")%>">删除<A></TD> </TR> </TABLE> <!--<TABLE BORDER="0" WIDTH="80%"><HR SIZE="1" COLOR="silver" WIDTH="95%"></TABLE>--> <TABLE BORDER="0" WIDTH="80%" BGCOLOR="silver" CELLSPACING="1"><TR BGCOLOR="white"><TD><PRE><%=show("body")%></PRE></TD></TR> <TABLE BORDER="0" WIDTH="80%"><HR></TABLE> <TABLE BORDER="0" WIDTH="80%"> <TR> <TD ALIGN=CENTER><A HREF="in.asp">添加记录<A>|<A HREF="showtitle.asp">返回列表<A></TD> </TR> </TABLE> </BODY> </HTML> --------------------------------- --------------showtitle.asp------ <% option explicit%> <!--#Include file="fconn.asp"--> <HTML> <HEAD></HEAD> <BODY BACKGROUND="../indexfiles/pic/bg049.gif"> <CENTER> <FONT SIZE="7" FACE="楷体_GB2312">帖子列表</FONT> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <TABLE BORDER="0" WIDTH="80%" BGCOLOR="silver" CELLSPACING="1"> <TR BGCOLOR="white"> <TD>编号</TD> <TD ALIGN="center">文章标题</TD> <TD ALIGN="right">文章作者</TD> <TD ALIGN="right">发表时间</TD> <TD ALIGN="center"">管理</TD> </TR> <% Dim show Set show=fconn.Execute("Select * From freemin Order By freeid Desc") Do while not show.Eof %> <TR BGCOLOR="white"> <TD><%=show("freeid")%></TD> <TD><A HREF="showbody.asp?showid=<%=show("freeid")%>"><%=show("title")%></A></TD> <TD ALIGN="center"><%=show("username")%></TD> <TD ALIGN="center"><%=show("date")%></TD> <TD ALIGN="right"><A HREF="up.asp?upid=<%=show("freeid")%>">修改<A>|<A HREF="del.asp?delid=<%=show("freeid")%>">删除</TD> </TR> <% show.MoveNext Loop %> </TABLE> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <CENTER><A HREF="in.asp">添加记录<A></CENTER> </BODY> </HTML> -------------------up.asp----- <% option explicit%> <%Response.Buffer=True%> <!--#Include file="fconn.asp"--> <HTML> <HEAD></HEAD> <BODY> <% Dim show,upid upid=Request("upid") Set show=fconn.Execute("Select * From freemin Where freeid="&upid&" Order By date") %> <CENTER> <FONT SIZE="7" FACE="楷体_GB2312">修改帖子</FONT> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <TABLE BORDER="0" WIDTH="80%"> <FORM ACTION="" METHOD="post" NAME="up"> <TR> <TD>文章标题：</TD><TD><INPUT TYPE="text" NAME="title" SIZE=80 VALUE="<%=show("title")%>">**</TD> </TR> <TR> <TD>文章作者：</TD><TD><INPUT TYPE="text" NAME="username" SIZE=80 VALUE="<%=show("username")%>">**</TD> </TR> <TR> <TD>发表文章：</TD><TD><TEXTAREA NAME="body" ROWS="8" COLS="81" WRAP="hard"><%=show("body")%></TEXTAREA></TD> </TR> </TABLE> <TABLE BORDER="0" WIDTH="80%"><TR><TD><HR></TR></TD></TABLE> <INPUT TYPE="submit" VALUE=" 确 定 "></FORM> </CENTER> <% Dim uptitle,upusername,upbody,upstr uptitle=Request("title") upusername=Request("username") upbody=Request("body") If uptitle<>"" and upusername<>"" and upbody<>"" Then upstr="Update freemin Set title='"&uptitle&"', username='"&upusername&"', body='"&upbody&"' Where freeid="&upid fconn.Execute(upstr) Response.Redirect"showtitle.asp" Else Response.Write"<CENTER>请填写完整</CENTER>" End If %> <CENTER><A HREF="showtitle.asp">返回列表<A> </BODY> </HTML> ------------------------------- --------------del--------------- <% option explicit%> <!--#Include file="fconn.asp"--> <% Dim del,delid delid=Request("delid") fconn.Execute("Delete From freemin Where freeid="&delid) Response.Redirect "showtitle.asp" %> --------------------------------- ------------------free.mdb------- freeid 自动编号 帖子ID body 备注 帖子内容 title 文本 标题列表 username 文本 发帖作者 date 时间/日期 发帖时间 [默认值是 date()] ---------------------------------- 很简单的一个程序。很高兴。  将上面的图片另存为*.rar就是该程序的源代码下载文件。    |
| 地主 发表时间: 04-04-12 00:48 |
| 回复: zml2236 [zml2236] 论坛用户 |
登录 |
|
上面的图片是我把源代码压缩后，再改名为rar文件传上来的， 想不到居然不行，下面是可以直接下载的地址。 上面的下载地址  进入看效果 可以留言 呵呵，没有用server.encode大家都可以写<html>,更搞笑的是，大家都可以修改和删除帖子。呵呵    [此贴被 明亮(zml2236) 在 04月12日22时19分 编辑过] |
| B1层 发表时间: 04-04-12 01:02 |
 | 回复: kzwc [kzwc]  论坛用户 |
登录 |
|
我是过路的 |
| B2层 发表时间: 04-04-12 01:12 |
 | 回复: drckness [drckness] 论坛用户 |
登录 |
|
看了一下，是基本的ASP数据存取。很简单但是由小到大嘛呵呵。 顺便指出来 <FORM ACTION="" METHOD="post" NAME="in"> 没有POST对像呀，呵呵， |
| B3层 发表时间: 04-04-12 21:53 |
| 回复: zml2236 [zml2236] 论坛用户 |
登录 |
3q 我记得我是提交给本页然后存进数据库，也不知道这些 |
| B4层 发表时间: 04-04-12 22:05 |
 | 回复: zhanjiajun [zhanjiajun] 论坛用户 |
登录 |
|
你好,我的QQ:47591293 52258388 一起聊一下.好不? |
| B5层 发表时间: 04-04-14 10:59 |
| 回复: zml2236 [zml2236] 论坛用户 |
登录 |
|
你在你的帖子 http://www.20cn.net/cgi-bin/club/show.pl?key=KLklRoBjhIYQ&cat=tech&forum=web&page=1&position=1972&id=1081500139 中的问题我想你可以参考一下我的这个程序的in.asp 但我这个东东是漏洞百出，只能做参考，在实际中，还要考虑过滤HTML，增加删除密码，还有防止SQL注入等等，我现在才知道我写的东西有好烂。  自从我的QQ被盗了之后，很少用QQ。号码都记不得了。 [此贴被 明亮(zml2236) 在 04月15日16时23分 编辑过] |
| B6层 发表时间: 04-04-15 15:38 |
 | 回复: moley [moley] 论坛用户 |
登录 |
|
呵呵，再加努力！ |
| B7层 发表时间: 04-04-15 15:52 |
 | 回复: lazybaby [lazybaby]  论坛用户 |
登录 |
|
我也正在学~~ |
| B8层 发表时间: 04-04-15 16:52 |
|
20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon
粤ICP备05087286号
论坛: 网站建设
标题: 发表一个我写的第一个ASP程序源代码？