论坛: 网站建设 标题: 发表一个我写的第一个ASP程序源代码? 复制本贴地址    
作者: 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")%>&nbsp发表于<%=show("date")%>&nbsp|<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号