请选择 进入手机版 | 继续访问电脑版
收藏本站腾讯微博新浪微博
邮件列表客服QQ 800003860切换到窄版
点点网模板设计大赛 phpchina

经典论坛

 找回密码
 注册

QQ登录

只需一步，快速开始

蓝色理想 最新研发动态 用悬赏 三天解决问题 解决访问速度慢 论坛支持农历生日 - 给官方提建议

论坛活动及任务 归纳网站最新活动 地图任务 邮件更新任务:保护帐号安全

积分换实物，来参加蓝色理想积分兑换吧！ 联系招聘客服 蓝色理想帮你找工作！ 万元奖励等你拿——点点网模板设计大赛

经典论坛 › 论坛 › 网站开发区 › 后台数据库编程 › 我是这样编写asp程序的
返回列表 发新帖
查看: 3766|回复: 25

我是这样编写asp程序的 [复制链接]

citywill　楼主
帖子
196
体力
690
威望
7
居住地
吉林省 长春市
发表于 2006-7-18 08:53:44 |显示全部楼层
asp程序非面向对象、代码混杂、重用率低，许多asp程序员为之所累。因此在使用asp的时候更要寻找一个适合自己的标准，使程序尽可能的合理化。这是我在最近的项目中做的一点尝试，请大家提意见。
框架是这样做的：

  1. <!--#include file="../include/config.asp" -->
  2. <!--#include file="config.asp" -->
  3. <%
  4. '页程序块
  5. title_subhead="副标题"
  6. title_page="页面标题"
  7. title_cont=""
  8. title_ie=title_cont&title_page&title_subhead&title
  9. 'config_Login("s")
  10. '浏览权限：s为学生浏览 t为教师浏览 如果没有限制去掉改行

  12. 'str_info = Trim(Request.QueryString("str_info"))
  13. '警告和提示
  14. 'action = Trim(Request.QueryString("action"))
  15. '命令

  17. %>
  18. <!--#include file="../include/header.asp" -->
  19. <!--页面内容开始 -->
  20. <div class="str_info"><%= str_info %></div>
  21. <!--页面内容结束 -->
  22. <!--#include file="../include/footer.asp" -->
复制代码


大概说说结构：

../include/config.asp：相当于asp.net中的web.config，全局变量、函数、过程（包括数据库连接）都放到里面

config.asp：相当于asp.net子目录下的web.config，对当前目录的设置。比如每个目录的二级菜单不同，那么就在config里面分别设置二级菜单的变量。

<%'页程序块%>：把本页的asp程序写在一起，尽量做到程序和页面内容分开。当然不可避免的要在内容中嵌入变量或者函数，就相当于asp.net的自定义控件了。

../include/header.asp：也许看不到这个页面里的东西你不会觉得妙，但是我可以形容一下，里面有html代码的定义和head、body标签，还有网页的logo、menu等信息。当然如果有登录状态或者是二级菜单的化也要放到里面。总之，在网页上面公用的部分都在这个页里。

网页内容：里面就是html代码了，每页不同的部分都在这里。

../include/footer.asp：这里主要包含copyright之类的东西。

然后举例简单说明怎么用（基本上就算掏底了）：
../include/header.asp

  1. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  2. <html xmlns="http://www.w3.org/1999/xhtml">
  3. <head>
  4. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  5. <title><%= title_ie %></title>
  6. <%= link_feed %>
  7. <link href="../style/web.css" rel="stylesheet" type="text/css" />
  8. </head>
  9. <body>
  10. <div id="header">
  11. <div id="state"><% config_loginState %></div>
  12. <div id="anav"><% =config_anav %></div>
  13. <h1><%= title %></h1>
  14. <div id="subhead"><%= title_subhead %></div>
  15. <div id="menu"><% =config_menu %></div>
  16. <div id="nav"><% =config_nav %></div>
  17. </div>
  18. <div id="main">
  19. <div class="left">
  20. <h2><%= title_page %></h2>
复制代码


这是header里面的全部代码，里面所有的asp部分都是变量或者函数。大多数在各级config里面设置，少数比如title在config设置后，可能还需要在每页写个脚本，追加一部分。比如config里面已经设置了title="citywill.net"，在某一页的程序块中可以这样追加title="我这样编写asp - "&title

这就是本人的做法，在实践中发现这样做比较高效，但是仍需不断的改善。请大家多多指教。

[ 本帖最后由 citywill 于 2006-7-18 13:08 编辑 ]
http://blog.citywill.net
西部数码顶级域名注册商39元抢注！

使用道具 举报

cjj　

阳光锈了

荣誉管理 手机认证 

帖子
5893
体力
20915
威望
117
居住地
浙江省 嘉兴市
发表于 2006-7-18 08:57:26 |显示全部楼层
代码混杂、重用率低是代码工人自身的能力问题。在正规的项目中，真正的程序员是不会写出这样的代码的。
租服务器，上51IDC | [长沙]招聘:PHP经理10K/WEB前端6K/PHP开发6K

使用道具 举报

一滩死水　

一滩死水

钻石会员

帖子
1063
体力
7305
威望
0
发表于 2006-7-18 09:13:17 |显示全部楼层
正解，这样的代码，看起来也累。。。
我一直哭一直哭，哭我没鞋穿。直到有一天我看到一个人，他连脚也没有……

使用道具 举报

hooline　
帖子
371
体力
1296
威望
1
发表于 2006-7-18 09:23:49 |显示全部楼层
我的理解应该是模板、类、函数、过程；表现跟代码分离。不懂后台程序的前台设计人员只要能调用模块就可以了。
交流算法思路，讨代码者滚。

使用道具 举报

look80　
帖子
302
体力
381
威望
0
发表于 2006-7-18 09:26:22 |显示全部楼层
楼主的这代码写得有问题么？我觉得对于中小型企业站点应当能胜任了

那么2楼和3楼可否介绍下相关的经验呢？

使用道具 举报

52477284　
帖子
31
体力
47
威望
0
发表于 2006-7-18 09:59:09 |显示全部楼层
２，３楼，，那你们是如何写代码的呢，，他的哪里出现问题了呢

使用道具 举报

shiyuzjhm　
帖子
28
体力
56
威望
0
发表于 2006-7-18 10:03:20 |显示全部楼层
我也希望能在这里讨点经验，这对我来说是个很严重的问题，谢谢！

使用道具 举报

newlethe　

好帅的爸爸

高级会员 手机认证 

帖子
360
体力
1348
威望
2
居住地
湖北省 武汉市
发表于 2006-7-18 10:34:28 |显示全部楼层
模块化，显示层和数据层分离！
我的淘宝

使用道具 举报

newlethe　

好帅的爸爸

高级会员 手机认证 

帖子
360
体力
1348
威望
2
居住地
湖北省 武汉市
发表于 2006-7-18 10:36:02 |显示全部楼层
多加注释也是有必要的！！方便维护修改！！
我的淘宝

使用道具 举报

cjj　

阳光锈了

荣誉管理 手机认证 

帖子
5893
体力
20915
威望
117
居住地
浙江省 嘉兴市
发表于 2006-7-18 10:52:59 |显示全部楼层

这是维护的自己的类库、函数库的一部分代码

作为程序员，相信每个人都有自己的函数库及类库。在做项目时，从库里面提取想要的函数及类。这样可以提高开发效率。

CJJ专用ASP类库中的某个class
  1.   '----******************** TConnString *****************************----
  2.   '数据库连接字符串结构体
  3.   Class TConnString
  4.       Public DBName,DBPath,DBServer,DBUser,DBPass,DBType
  5.   End Class
  6.   '----******************** TConnString *****************************----

  8.   '----********************* TDBOperate *****************************----
  9.   '通用数据库操作类
  10.   Class TDBOperate
  11.       Private cls_oConn,cls_oRS '类私有Connection对象、RecordSet对象
  12.       Private cls_sErrInfo,cls_sConn,cls_sSQL,cls_sURL,cls_sFormAction
  13.       Private cls_iPageSize '分页数
  14.       Private cls_lTotalPage,cls_lTotalRecord,cls_lPageNo

  16.       '类初始化
  17.       Private Sub Class_Initialize()
  18.       End Sub

  20.       '*****************************************
  21.           ' 类型：    属性
  22.       ' 目的：    根据获取的Connection String，创建数据库连接
  23.       ' 输入：    a_sConn:数据类型字符串
  24.       ' 返回：    无
  25.       '*****************************************
  26.       Public Property Let SetConn(a_sConn)
  27.           Dim sObjType


  30.           sObjType = LCase(TypeName(a_sConn))
  31.           If sObjType <> "string" Then
  32.               cls_sErrInfo = cls_sErrInfo & "<li>SetConn：非法的字符串参数</li>" & Chr(10)
  33.               Exit Property
  34.           End If

  36.           Set cls_oConn = CreateObject("Adodb.Connection")
  37.           On Error Resume Next
  38.           cls_oConn.Open a_sConn
  39.            If Err Then
  40.               Err.Clear
  41.               Set cls_oConn = Nothing
  42.               On error goto 0
  43.               cls_sErrInfo = cls_sErrInfo & "<li>数据库连接出错</li>" & Chr(10)
  44.           End If
  45.           On Error Goto 0
  46.           End Property
  47.       
  48.       '*****************************************
  49.           ' 类型：    属性
  50.       ' 目的：    根据获取的Connection对象，创建数据库连接
  51.       ' 输入：    a_oConn:数据类型字符串
  52.       ' 返回：    无
  53.       '*****************************************
  54.       Public Property Set SetConn(a_oConn)
  55.           Dim sObjType,sConn
  56.           Dim oConnStr
  57.       
  58.           sObjType = LCase(TypeName(a_oConn))
  59.    
  60.           Select Case sObjType
  61.           Case "connection"
  62.               '设置Connection对象
  63.               Set cls_oConn = a_oConn
  64.           Case "tconnstring"
  65.              sConn = ""
  66.              Set oConnStr = a_oConn
  67.              Select Case (oConnStr.DBType)
  68.                      Case gbl_iDB_Access
  69.                   sConn = "Provider = micorsoft.jet.oledb.4.0; User ID = " & oConnStr.DBUser & "; Password = " & Replace(oConnStr.DBPass, Chr(0), "") & ";Initial Catalog = " & oConnStr.DBName & "; Data Source = " & SqlLocalName & ";"
  70.                       Case gbl_iDB_MsSQL
  71.                   sConn = "Provider = Sqloledb; User ID = " & oConnStr.DBUser & "; Password = " & Replace(oConnStr.DBPass, Chr(0), "") & ";Initial Catalog = " & oConnStr.DBName & "; Data Source = " & oConnStr.DBServer & ";"
  72.                       End Select
  73.    
  74.               If sConn = "" Then
  75.                   cls_sErrInfo = cls_sErrInfo & "<li>数据库连接对象出错，无法创建Connection对象</li>" & Chr(10)
  76.                   Exit Property
  77.               End If

  79.              '设置Connection连接串值，供ConnStr属性返回
  80.               cls_sConn = sConn
  81.       
  82.               Set cls_oConn = CreateObject("Adodb.Connection")
  83.               On Error Resume Next
  84.               cls_oConn.Open sConn
  85.                If Err Then
  86.                   Err.Clear
  87.                   Set cls_oConn = Nothing
  88.                   cls_sErrInfo = cls_sErrInfo & "<li>数据库连接出错</li>" & Chr(10)
  89.               End If
  90.               On Error Goto 0
  91.           Case Else
  92.               cls_sErrInfo = cls_sErrInfo & "<li>SetConn：非法的对象参数</li>" & Chr(10)
  93.               Exit Property
  94.           End Select
  95.       End Property

  97.       '*****************************************
  98.           ' 类型：    属性
  99.       ' 目的：    设置RecordSet对象
  100.       ' 输入：    a_sSQL:   SQL语句。
  101.       ' 返回：    无。
  102.       '*****************************************
  103.           Public Property Let SetRS(a_sSQL)
  104.           If LCase(TypeName(cls_oConn)) <> "connection" Then
  105.               cls_sErrInfo = cls_sErrInfo & "<li>非法的Connection对象，无法创建RecordSet对象</li>" & Chr(10)
  106.               Exit Property
  107.           End If
  108.   
  109.                   cls_sSQL = a_sSQL

  111.           '创建RecordSet对象
  112.               Set cls_oRS = CreateObject("Adodb.RecordSet")


  115. '          On Error Resume Next
  116.                   cls_oRS.Open cls_sSQL,cls_oConn,1,1
  117. '          On Error Goto 0
  118.           End Property

  120.       '*****************************************
  121.       ' 类型：    属性
  122.       ' 目的：    设置RecordSet对象
  123.       ' 输入：    a_oRS:   RecordSet对象
  124.       ' 返回：    无。
  125.       '*****************************************
  126.       Public Property Set SetRS(a_oRS)
  127.           If LCase(TypeName(a_oRS))<>"recordset" Then
  128.               cls_sErrInfo = cls_sErrInfo & "<li>非法的RecordSet对象</li>" & Chr(10)
  129.               Exit Property
  130.           End If

  132.           '设置RecordSet对象
  133.           Set cls_oRS = a_oRS
  134.       End Property

  136.       '*****************************************
  137.       ' 类型：    属性
  138.       ' 目的：    设置RecordSet对象
  139.       ' 输入：    a_oRS:   RecordSet对象
  140.       ' 返回：   返回一RecordSet对象
  141.       '*****************************************
  142.       Public Property Get GetRS()
  143.           Set GetRS = cls_oRS
  144.       End Property

  146.       '获取Connection对象
  147.       Public Property Get GetConn()
  148.           If cls_sErrInfo <> "" Then
  149.               Call ShowError()
  150.           End If
  151.    
  152.           If LCase(TypeName(cls_oConn))<>"connection" Then
  153.               cls_sErrInfo = cls_sErrInfo & "<li>Connection对象获取失败</li>"
  154. '              Exit Property              
  155.           End If
  156.    
  157.           Set GetConn = cls_oConn
  158.       End Property

  160.       '返回数据库连接字符串
  161.       Public Property Get ConnStr
  162.           ConnStr = cls_sConn
  163.       End Property
  164.   
  165.       '设置第个页面显示的数据数
  166.       Public Property Let PageSize(a_iPageSize)
  167.           If Not IsNumeric(a_iPageSize) Then
  168.               cls_sErrInfo = cls_sErrInfo & "<li>无效的分页记录数参数</li>" & Chr(10)
  169.               Exit Property
  170.           End If
  171.   
  172.           cls_iPageSize = a_iPageSize
  173.       End Property
  174.       
  175.       '设置SQL语句,用于建立RecordSet对象
  176.       Public Property Let SQL(a_sSQL)
  177.            If IsNone(a_sSQL) Then
  178.               cls_sErrInfo = cls_sErrInfo & "<li>没有设置SQL,无法创建RecordSet对象</li>" & Chr(10)
  179.               Exit Property
  180.           End If

  182.           cls_sSQL = Trim(a_sSQL)
  183.       End Property

  185.       '执行数据操作
  186.       Public Sub Execute()
  187.           If cls_sErrInfo <> "" Then
  188.               ShowError("<ul>" & Chr(10) & cls_sErrInfo & "</ul>" & Chr(10))
  189.               Exit Sub
  190.           End If

  192.           If LCase(TypeName(cls_oConn))="connection" Then
  193.               If IsNumeric(cls_iPageSize) Then
  194.                   Set cls_oRS =  CreateObject("Adodb.RecordSet")
  195.                   cls_oRS.Open cls_sSQL,cls_oConn,1,1
  196.               Else
  197.               End If
  198.           Else
  199.               cls_sErrInfo = cls_sErrInfo & "<li>非法的Connection对象</li>" & Chr(10)
  200.           End If
  201.       End Sub

  203.       '*****************************************
  204.           ' 类型：    属性
  205.       ' 目的：    设定或显示URL。
  206.       ' 输入：    a_sURL:   需要分页的文件地址。
  207.       ' 返回：    无
  208.       '*****************************************
  209.           Public Property Let URL(ByVal a_sURL)
  210.           cls_sURL = a_sURL
  211.           End Property

  213.           '*****************************************
  214.           ' 类型：    过程
  215.       ' 目的：    统计总记录数、计算总页数
  216.       ' 输入：    无
  217.       ' 返回：    无
  218.       '*****************************************
  219.           Private Sub Pagination(ByVal a_sStr)
  220.           Dim iPosition,cls_sErrInfo,i,oRS_Temp,lTotalRecord

  222.           If cls_sErrInfo <> "" Then
  223.                          Call ShowErrors()
  224.                          Exit Sub
  225.           End If

  227.                   If cls_oRS.Eof And cls_oRS.Bof Then
  228.              cls_sErrInfo = cls_sErrInfo & "<li>库中无任何记录</li>"
  229.           End If

  231.                   '计算总计录数
  232.           Select Case LCase(TypeName(a_sStr))
  233.           Case "string"
  234.                Set oRS_Temp = cls_oConn.Execute(a_sStr)
  235.                lTotalRecord = CLng(oRS_Temp(0).Value)
  236.           Case "integer"
  237.               Select Case (Int(Trim(a_sStr)))
  238.               Case gbl_iPagination_UseRcdCount '使的RecordCount方法进行分页
  239.                   lTotalRecord = cls_oRS.RecordCount
  240.               Case gbl_iPagination_UsePgCount  '使用PageCount方法进行分页
  241.                   lTotalRecord = cls_oRS.PageCount * cls_iPageSize
  242.               End Select
  243.           End Select
  244.   
  245.                   cls_lTotalRecord = lTotalRecord
  246.           If (cls_lTotalRecord<=2147483647 AND cls_lTotalRecord>=-2147483648) Then
  247.               cls_lTotalRecord = CLng(cls_lTotalRecord)
  248.           Else
  249.               cls_lTotalRecord = 2147483647
  250.                   End If

  252.           If cls_lTotalRecord <0 Then
  253.               cls_lTotalRecord = 0
  254.           End If

  256.                   '计算总页数
  257.           If cls_lTotalRecord Mod cls_iPageSize = 0 Then
  258.                       cls_lTotalPage = CLng(cls_lTotalRecord \ cls_iPageSize * -1)*-1
  259.           Else
  260.                           cls_lTotalPage = CLng(cls_lTotalRecord \ cls_iPageSize * -1)*-1 + 1
  261.           End If

  263.                   '获取当前页参数
  264.                   cls_lPageNo = Trim(Request.QueryString("Page"))
  265.                   If cls_lPageNo = "" Then
  266.               cls_lPageNo = Trim(Request.Form("Page"))
  267.                          If cls_lPageNo = "" Then
  268.                  cls_lPageNo = 1
  269.               End If
  270.           End If
  271.    
  272.           '如果没有选择第几页，则默认显示第一页
  273.           If cls_lPageNo <> "" And IsNumeric(cls_lPageNo) Then
  274.               If (cls_lPageNo <= 2147483647 And cls_lPageNo>=-2147483648) Then
  275.                   cls_lPageNo = CLng(cls_lPageNo)
  276.               Else
  277.                   cls_lPageNo = 2147483647
  278.                             End If
  279.                           If (cls_lPageNo<=0) Then
  280.                   cls_lPageNo = 1
  281.               End If
  282.           Else '当前页参数为空或者非数字，默认将转到第1页
  283.               cls_lPageNo=1
  284.               End If

  286.                   If (cls_lPageNo > cls_lTotalPage AND cls_lTotalPage<>0) Then
  287.               cls_lPageNo = cls_lTotalPage
  288.           End If

  290.           cls_oRS.PageSize     = cls_iPageSize
  291.               cls_oRS.AbsolutePage = cls_lPageNo

  293.                   iPosition = InstrRev(cls_sURL,"?")
  294.               cls_sFormAction = cls_sURL
  295.               If iPosition > 0 Then
  296.                   cls_sURL = cls_sURL & "&Page="
  297.           Else
  298.                   cls_sURL = cls_sURL & "?Page="
  299.               End If
  300.          End Sub
  301.       
  302.       '*****************************************
  303.       ' 类型：    过程
  304.       ' 目的：    显示分页信息
  305.       ' 输入：    无
  306.       ' 返回：    无
  307.       '*****************************************
  308.       Public Sub Pages(ByVal a_sStr)
  309.           Dim strPages,k,intTemp,intTemp1
  310.           Dim sResult

  312.           If Not IsNone(cls_sErrInfo) Then
  313.               Call ShowErrors()
  314.           End If
  315.         
  316.           '计算总页数及总记录数
  317.           Call Pagination(a_sStr)

  319.           If cls_lTotalPage = 1 Then Exit Sub
  320.           sResult = sResult & "<table class=""clsShowPage"">" & Chr(10)
  321.           sResult = sResult & "  <tr>" & Chr(10) & "    <td>" & Chr(10)
  322.           sResult = sResult & "      <table width=""100%"">" & Chr(10)
  323.           sResult = sResult & "         <tr>" & Chr(10) & "           <td class=""PageText"">" & Chr(10)

  325.           If cls_lTotalPage >= 1 Then

  327.                   If cls_lPageNo <= 1 Then
  328.                       sResult = sResult & "首页 前页 <a href=""" & cls_sURL & cls_lPageNo+1 & """>后页</a> <a href=""" & cls_sURL & cls_lTotalPage & """>末页</a>" & Chr(10)
  329.                       Else
  330.                               If cls_lPageNo >= cls_lTotalPage Then
  331.                           sResult = sResult & "<a href=""" & cls_sURL & "1"">首页</a>  <a href=""" & cls_sURL  & cls_lPageNo -1 & """>前页</a>  " & "后页  末页" & Chr(10)
  332.                       Else
  333.                           sResult = sResult & "<a href=""" & cls_sURL & "1"">首页</a> <a href=""" & cls_sURL  & cls_lPageNo -1 & """>前页</a> " & "<a href=""" & cls_sURL  & cls_lPageNo+1 & """>后页</a> <a href=""" & cls_sURL  & cls_lTotalPage & """>末页</a>" & Chr(10)
  334.                           End If
  335.                       End If
  336.                       sResult = sResult & "　页次：<strong>" & cls_lPageNo & "</strong>/" & cls_lTotalPage & "页 共<strong>" & cls_lTotalRecord & "</strong>条记录　<strong>" & cls_iPageSize & "</strong>条/页</td>" & Chr(10)
  337.                   sResult = sResult & "      <form name=""gopage"" action=""" & cls_sFormAction & """ method=""post"">" & Chr(10)
  338.                   sResult = sResult & "      <td> 第"
  339.                               sResult = sResult & "    <input type=""text"" name=""pageno"" class=""InputPage"" title=""请输入页号,然后回车"">页 " & Chr(10)
  340.                   sResult = sResult & "<input type=""submit"" class=""GotoPage"" value=""GO""></td></form></tr>" & Chr(10)
  341.                   End If
  342.           sResult = sResult & "      </table>" & Chr(10) & "    </td>" & Chr(10) & "  </tr>" & Chr(10) & "</table>" & Chr(10)

  344.           '输出分页信息
  345.           Response.Write("result:" & sResult)
  346.       End Sub

  348.       '类销毁
  349.       Private Sub Class_Terminate()     
  350.           If LCase(TypeName(cls_oConn))<>"nothing" Then
  351.               cls_oConn.Close
  352.               Set cls_oConn = Nothing
  353.           End If
  354.   
  355.           If LCase(TypeName(cls_oRS))<>"nothing" Then
  356.        '       cls_oRS.Close
  357.               Set cls_oRS = Nothing
  358.           End If
  359.       End Sub


  362.           '*****************************************
  363.           ' 类型：    过程
  364.       ' 目的：    显示分页类中出现的错误信息
  365.       ' 输入：    无
  366.       ' 返回：    无
  367.       '*****************************************
  368.           Private Sub ShowErrors()
  369.               If cls_cls_sErrInfo <> "" Then
  370.               cls_cls_sErrInfo = "<ul>" & Chr(10) & cls_sErrInfo & "</ul>" & Chr(10)
  371.               Response.Write(cls_cls_sErrInfo)
  372.                       Response.End
  373.                   End If
  374.           End Sub
  375.   End Class
  376.   '----********************* TDBOperate *****************************----
复制代码


我自己的函数库中的某两个函数的代码
  1.   '**********************************************
  2.   ' 类型：函数
  3.   ' 目的：判断E-MAIL地址是否正确
  4.   ' 参数：a_sEmail,待检测的E-Mail地址
  5.   ' 返回： ture或false
  6.   ' 作者：cjj
  7.   ' 时间：2006-6-14
  8.   ' 版本：v1.0
  9.   ' 备注：(记录过程或函数的修改说明)
  10.   '**********************************************
  11.   Function isEmail(ByVal a_sEmail)
  12.       Dim sEmail
  13.       Dim iPos,i

  15.       ' 函数默认返回值
  16.       isEmail = false
  17.       sEmail = Trim(a_sEmail)
  18.   
  19.       If Instr(sEmail,"@") <1 Or Instr(sEmail,".") <1 Then
  20.           Exit Function
  21.       End If

  23.       iPos = Instr(sEmail,"@")

  25.       If iPos>=Instr(iPos+1,sEmail,".") Then
  26.           Exit Function
  27.       End If

  29.        '函数返回值
  30.        isEmail=true
  31.   End Function

  33.   '**********************************************
  34.   ' 类型：函数
  35.   ' 目的：显示服务器端信息
  36.   ' 参数：无
  37.   ' 返回：往客户端输出服务器端信息table
  38.   ' 作者：cjj
  39.   ' 时间：2006-6-14
  40.   ' 版本：v1.0
  41.   ' 备注：(记录过程或函数的修改说明)
  42.   '**********************************************
  43.   Sub ViewServerInfo()
  44.       Dim sName,sHtml
  45.   
  46.       sHtml = "<Table border=1 bordercolor=lightblue CELLSPACING=0>" & Chr(10)

  48.       For Each sName In Request.ServerVariables
  49.           sHtml = sHtml & "  <tr>" & Chr(10)
  50.           sHtml = sHtml & "    <td>" & sName & "</td>" & Chr(10)
  51.           sHtml = sHtml & "    <td>" & Request.ServerVariables(sName) & "</td>" & Chr(10)
  52.           sHtml = sHtml & "  </tr>" & Chr(10)
  53.       Next

  55.       sHtml = sHtml & "</table>" & Chr(10)

  57.       '往客户端输出信息
  58.       Response.Write(sHtml)
  59.   End Sub
复制代码

使用道具 举报

cjj　

阳光锈了

荣誉管理 手机认证 

帖子
5893
体力
20915
威望
117
居住地
浙江省 嘉兴市
发表于 2006-7-18 11:24:56 |显示全部楼层

稍提一个编码风格

个人觉得代码混排是个鸡肋，混排的可读性差，所以我一般都只是少量混排，尽量将代码和HTML分离。
  1. <!--#include file="pubdb.asp"-->
  2. <%  
  3.   '*****************************************
  4.   '类型：函数
  5.   '目的：报错
  6.   '参数：
  7.   'a_num:报错信息参数
  8.   '*****************************************
  9.   Private Function ShowError(a_Num)
  10.       Dim sErrInfo

  12.       sErrInfo = ""
  13.       Response.Write("<p>Error Number:era_" & a_Num & "</p>")
  14.       Select Case a_Num
  15.       Case "1000"
  16.           sErrInfo = "参数类型不正确，请检查"
  17.       Case "1100"
  18.               sErrInfo = "无法打开数据库连接"
  19.       Case Else
  20.           sErrInfo = "发现未知错误，请与管理员联系"
  21.       End Select
  22.       sErrInfo = "<p>Error Description:" & sErrInfo & "</p>"
  23.       Response.Write(sErrInfo)
  24.       Response.End
  25.   End Function

  27.   Dim oRS,sHtml

  29.   Call OpenDB()
  30.   Set oRS = oConn.OpenSchema(20)
  31.   sHtml=""
  32.   oRS.MoveFirst

  34.   '循环读取数据库中的表名
  35.   Do While Not oRS.EOF
  36.           If UCase(oRS(3))="TABLE" Then
  37.           sTemp = Trim(oRS(2))
  38.           If sTBName = sTemp Then
  39.               sHtml= sHtml & Space(2) & "<option value=""" & sTemp & """ selected=""selected"">" & sTemp & "</option>" & Chr(10)
  40.           Else
  41.               sHtml= sHtml & Space(2) & "<option value=""" & sTemp & """>" & sTemp & "</option>" & Chr(10)
  42.           End If
  43.       End If
  44.       oRS.MoveNext
  45.   Loop
  46.   Call CloseDB()
  47. %>

  49. <html>
  50. <head>
  51. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  52. <title>数据库名</title>
  53. <script type="text/javascript">
  54. <!--
  55.     var sDstID="";
  56.     function serverResult(a_sUrl,a_sSrcID,a_sDstID) {
  57.        var sValue = document.getElementById(a_sSrcID).value;
  58.        sDstID=a_sDstID;
  59.        if ((sValue == null) || (sValue == "")) return;
  60.    
  61.        var sUrl = a_sUrl+sValue;
  62.        oXml.open("GET", sUrl,true);
  63.        oXml.onreadystatechange = updateData;
  64.        oXml.send(null);  
  65.     }

  67.     function updateData() {

  69.         var aElmnts = sDstID.split(',');
  70.         var oElmnt = null;
  71.         var aTags=null;
  72.         var oXmlData=null;

  74.         if ((oXml.readyState == 4) && (oXml.status == 200)) {
  75.             aTags = oXml.responseXML.documentElement.getElementsByTagName("cjjitem");
  76.             if (aTags.length!=aElmnts.length) {
  77.                 alert('获取的服务器端的数据错误！');
  78.                 return null;
  79.             }
  80.    
  81.             for (var i=0;i<aElmnts.length ;i++ ) {
  82.                 oElmnt = document.getElementById(aElmnts[i]);
  83.                 oElmnt.innerHTML=aTags[i].firstChild.data;
  84.             }
  85.         }
  86.         return true;
  87.     }

  89.     var oXml = false;
  90.     if (window.ActiveXObject) {
  91.         oXml = new ActiveXObject("Microsoft.XMLHTTP");
  92.     } else if (window.XMLHttpRequest) {
  93.         oXml=new XMLHttpRequest();
  94.     }
  95. //-->
  96. </script>
  97. </head>
  98. <body>
  99. <form method="POST" name="form1" action="addFormData.asp">
  100.         <p>　</p>
  101.         <p>数据库名:<input type="text" name="txtDBName" size="7" value="work"> 数据库用户名:<input type="text" name="DBUserName" size="8" value="sa">数据库密码:<input type="password" name="DBUserPassWord" size="10" value=""> 数据库服务器路径:<input type="text" name="DBServerPath" size="20" value="127.0.0.1"></p>
  102.         <p>数据表名:<select size="1" id="sltTBName" name="sltTBName" onchange="serverResult('getFieldList.asp?n=','sltTBName','fieldcount,tblFields');">
  103.         <option selected="selected">请选择一个表</option>
  104.         <%=sHtml%>
  105.         </select></p>

  107. <div id="fieldcount">表字段个数:<input type="text" id="txtFldCount" name="txtFldCount" value="0" /></div>
  108.   <table id="tblFields" border="1" width="91%">
  109.     <thead>
  110.                 <tr>
  111.                         <td align="center" width="94">字段名</td>
  112.                         <td align="center" width="113">字段类型</td>
  113.                         <td width="27" align="center">使用</td>
  114.                         <td width="18" align="center">只读</td>
  115.                         <td align="center" width="80">表单项类型</td>
  116.                         <td align="center" width="100">表单项名称</td>
  117.                         <td align="center" width="92">表单项描述</td>
  118.                         <td align="center" width="87">表单项验证</td>
  119.                         <td align="center">表单项默认值</td>
  120.                 </tr>
  121.      </thead>
  122.      <tbody>
  123.      </tbody>
  124.         </table>
  125.         <p align="left">需要生成的动态ASP网页类型:<select size="1" name="sltAspType">
  126.         <option value="0">数据添加</option>
  127.         <option value="1">数据编辑</option>
  128.         <option value="2">数据删除</option>
  129.         <option value="3">数据管理</option>
  130.         <option value="4">数据列表</option>
  131.         </select> 文件名:<input type="text" name="txtFileName" size="17" value="">
  132.         文件类型:<select size="1" name="sltFileType">
  133.         <option value="ASP">ASP</option>
  134.         <option value="PHP">PHP</option>
  135.         <option value="JSP">JSP</option>
  136.         <option value="PERL">PERL</option>
  137.         <option value="VB.NET">VB.NET</option>
  138.         <option value="C#">C#</option>
  139.         </select>
  140.         <input type="submit" value="生成文件" name="action"></p>
  141. </form>
  142. </body>
  143. </html>
复制代码


编程我们要明确自己要达到什么目的，分几步走，想清楚了再开始写，不然直接信手写下去，这个程序十有八、九要重构过。明确目的后，大致构思一些实现的思路，然后按造这个思路去解决。

写代码时需要注意养成一种良好的编码风格，这样写出来的代码可读性比较强。我稍微提一个变量命名风格，变量类型+变量名。我比较懒，所以我一般都通过一个小写字母来标识变量的类型，Integer型用小写i,如iCount;String型用小写s，如sStr等等。碰上一些第一个字母相同，则常用的类型用每一个字段，不常用的类型除了取每一个字母外再加紧跟的第二个字段，如Boolean和Binary，那我就用b表示布尔型用bi表示二进制，依此类推。如果是全局型变量我就给它加gbl前缀，如果是class级给它加上cls前缀。如：iTemp,cls_iTemp（class级变量）,gbl_iTemp(全局变量)。变量名一定要表达清楚意思，哪种名称比较常，这样不会给其它阅读的人造成困扰，不需要花太多时间去研究你的代码。
变量名中第一位小写字母简写说明
   a  : Array
   b  : Boolean
   bi : Binary
   by : Byte
   c  : Const
   ch : Char
   d  : DateTime
   i  : Integer
   l  : Long
   o  : Object
   s  : String
   v  : Variant
变量名前缀说明
   a   : 函数或过程中的参数,如 a_sName
   cls : CLASS级变量，如 cls_sUser
   gbl : 全局变量,如 gbl_sSiteName

[ 本帖最后由 cjj 于 2006-7-18 11:26 编辑 ]

使用道具 举报

5do8　

老农

荣誉管理 手机认证 

帖子
3861
体力
5998
威望
105
发表于 2006-7-18 13:02:37 |显示全部楼层
1:楼主的代码习惯还是初级水平的。按照您提到的习惯，如使用php等中的模板就解决你的问题了，其实，不然，真正高效 的程序是在处理业务的流程上，就是先经过大脑深思熟虑过，加上代码经验，写出来的代码没有差的。别被表面的一下东西迷惑，只有写了n多的项目以后你才能体会到的。

2：cjj提供的那个函数不错，copy下来先。



----》编辑

cjjer--》cjj，我写惯了，就把用户名些错了，31别介意，呵呵。

[ 本帖最后由 5do8 于 2006-7-18 13:42 编辑 ]
死党开的运动户外专营店,买的时候说blueidea的，打折！哈

使用道具 举报

萧萧小雨　

娃哈哈.COM

荣誉管理

帖子
14172
体力
34824
威望
62
居住地
天津市 南开区
发表于 2006-7-18 13:36:18 |显示全部楼层
asp这东西没办法，不混排的话，看着好香模块化了，但是你要是改界面就麻烦了……东一块西一块的。
哇嘎嘎……
毛绒玩具的卖~~~

使用道具 举报

citywill　楼主
帖子
196
体力
690
威望
7
居住地
吉林省 长春市
发表于 2006-7-18 13:37:33 |显示全部楼层
感谢朋友们的回复，看后得到了很多启发。特别感谢cjjer，很荣幸能够抛砖引玉。而且发现，我和cjjer在分页的处理上十分的相似。

但是要说明下：

1.我所展示的代码，实际是系统的“前台”，我所考虑的也只是如何高效的衔接前后台（也就是静态和动态分离）。类和函数我当然也要用，都在<!--#include file="../include/config.asp" -->里面。

2.关于前后台的衔接，asp.net和php环境都有很好的用模板解决的方案，但是asp没有（可以说asp匮乏的可怜）。大家也都知道用include，我只是提供了一个用include的技巧而已。

3.如果你是一个纯粹的程序员，从来不用考虑前台的话，那么模块化也就没有什么意义了，大可以把工作重心放在类和函数上（可是asp又不面向对象）。

4.asp是个古老的语言了，但是看样子还没到消失的时候;)。

[ 本帖最后由 citywill 于 2006-7-18 13:41 编辑 ]
http://blog.citywill.net

使用道具 举报

cjj　

阳光锈了

荣誉管理 手机认证 

帖子
5893
体力
20915
威望
117
居住地
浙江省 嘉兴市
发表于 2006-7-18 14:37:10 |显示全部楼层
小雨说的界面问题，不仅仅是ASP，PHP也同样存在。关于模版PHP中有个SMARTY，ASP中也完全可以照样写一个。界面交给CSS就行了。改界面的话，只要改CSS文件，不涉及到程序，楼主的代码中也是这样做的。

ASP中用ADODB.STREAM,可以实现按需INCLUDE。

ASP中可以用python或javascript实现面向对象的编程。所以说ASP不支持面向对象是错误的说法。

[ 本帖最后由 cjj 于 2006-7-18 14:43 编辑 ]

使用道具 举报

wulangqq00100　
帖子
286
体力
1177
威望
0
发表于 2006-7-18 15:06:54 |显示全部楼层
楼主，抓紧时间学习ASP.NET，不要再在研究ASP上浪费时间了。
原野的天空

使用道具 举报

mmfy　

迷失

钻石会员

帖子
1467
体力
5247
威望
0
发表于 2006-7-18 15:56:40 |显示全部楼层
9494，asp先天不足很难在开发模式上取得突破，不过小型的站点建议还是用asp来的简单，嘿嘿，不要听别人说asp怎么样怎么样，他既然还存在就有他存在的理由
重庆分类信息

使用道具 举报

Calchas　

晓风寒月

银牌会员 手机认证 

帖子
497
体力
2375
威望
1
居住地
四川省 成都市
发表于 2006-7-18 18:10:06 |显示全部楼层
学习学习。

现在准备学习.net   自学 所以中间有些东西不是很清楚。
半壺水 響叮噹

涓涓細流 長流不息

使用道具 举报

leelongsheng　
帖子
28
体力
62
威望
0
发表于 2006-7-18 21:27:25 |显示全部楼层
很不错啊，我支持，我也喜欢ASP，我通常把可以重复使用的称为模块，然后尽量减少重复写代码的辛苦，同时结构也更清晰！
寻找属于我的答案!

使用道具 举报

asp910　

蓝色尘埃

银牌会员

帖子
710
体力
1983
威望
7
居住地
湖南省 长沙市
发表于 2006-7-19 11:23:04 |显示全部楼层
个人感觉还是Java的MVC三层架构做的好，代码跟HTML都分离开了，在辅用
一些Struts等等什么的框架，这样就更好了
不足的一点就是现在很多编辑器对Struts的编辑视图不怎么支持，看不到效果
曾经沧海难为水,除却巫山不是云.

使用道具 举报

freejanker　
帖子
390
体力
1121
威望
0
发表于 2006-7-19 15:17:20 |显示全部楼层

唉～～～

有钱了，什么都一样。程序员又怎样呢？一样是“民工”。
http://www.fo128.com/blog/

使用道具 举报

wgh001　
帖子
373
体力
752
威望
1
居住地
福建省 厦门市
发表于 2006-7-20 13:15:51 |显示全部楼层
市场的今天，不是往日了

使用道具 举报

citywill　楼主
帖子
196
体力
690
威望
7
居住地
吉林省 长春市
发表于 2006-7-20 13:46:17 |显示全部楼层
呵呵，越扯越远了。
我也正在学习.net。
php .net java 毋庸置疑要比asp强大易用。但是这里讨论的是在asp的框架下，如何能做到最接近.net。或者说让代码工人获得更大的解放。
http://blog.citywill.net

使用道具 举报

antyque　
帖子
81
体力
194
威望
0
居住地
陕西省 西安市
发表于 2006-7-20 14:07:52 |显示全部楼层
写代码到了最后就是一个构架的问题，思想没跟上，再好的语言也没用，严重支持这样的介绍经验的帖子！

使用道具 举报

cjj　

阳光锈了

荣誉管理 手机认证 

帖子
5893
体力
20915
威望
117
居住地
浙江省 嘉兴市
发表于 2006-8-21 15:18:12 |显示全部楼层
同意楼上的话，写代码到最后讲究的是设计了，一个项目设计得好的话，开发方便，日后的维护简单，省时省力。语言不重要了，到一定的能力，花个把小时就可以上手新的语言了。

使用道具 举报

让你笑了　
帖子
921
体力
3168
威望
0
居住地
天津市 南开区
发表于 2006-8-21 15:29:27 |显示全部楼层
似乎用JS来写那写常用函数更好一些..比如把prototype.js放到SERVER端都可以用...也更面向对象一些...
桃花运啊桃花劫...

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Html Smilies
您需要登录后才可以回帖 登录 | 注册

Archiver|手机版|安久科技提供CDN|blueidea.com ( 京ICP备05002321号 )  

GMT+8, 2012-2-13 09:28 , Processed in 0.162490 second(s), 10 queries , Gzip On, Memcache On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回顶部