ASP网页设计一个显现Grid的VBScript工具
当然了,现在国内CRM厂商的产品与其说是CRM,但从至少从我的角度分析上来看,充其量只是一个大型的进销存而已了,了解尚浅,不够胆详评,这里只提技术问题vbscript|工具|显现是依据MS供应的代码修正而成,今朝还不撑持编纂,能够排序、查询、分页显现<%@Language=VBScript%>
<%OptionExplicit%>
<%
ClassclassDataGrid
Privatem_strSQL
Privatem_strConn
Privatem_strRowColor1
Privatem_strRowColor2
Privatem_strMode
Privatem_strProcessPage
Privatem_strTitle
Privatem_strRSName
Privatem_strFindFields
PublicPropertyGetSQL()
SQL=m_strSQL
EndProperty
PublicPropertyLetSQL(strSQL)
m_strSQL=strSQL
EndProperty
PublicPropertyGetConn()
Conn=m_strConn
EndProperty
PublicPropertyLetConn(strConn)
m_strConn=strConn
EndProperty
PublicPropertyGetRowColor1()
IfIsNull(m_strRowColor1)OrLen(m_strRowColor1)=0Then
RowColor1="#ffffff"
Else
RowColor1=m_strRowColor1
EndIf
EndProperty
PublicPropertyLetRowColor1(strRowColor1)
m_strRowColor1=strRowColor1
EndProperty
PublicPropertyGetRowColor2()
IfIsNull(m_strRowColor2)OrLen(m_strRowColor2)=0Then
RowColor2="#00ffff"
Else
RowColor2=m_strRowColor2
EndIf
EndProperty
PublicPropertyLetRowColor2(strRowColor2)
m_strRowColor2=strRowColor2
EndProperty
PublicPropertyGetMode()
IfIsNull(m_strMode)OrLen(m_strMode)=0Then
Mode="View"
Else
Mode=m_strMode
EndIf
EndProperty
PublicPropertyLetMode(strMode)
IfstrMode"View"AndstrMode"Edit"Then
Response.Write("形式毛病――只同意利用View和Edit<br>")
Response.End
Else
m_strMode=strMode
EndIf
EndProperty
PublicPropertyGetProcessPage()
ProcessPage=m_strProcessPage
EndProperty
PublicPropertyLetProcessPage(strProcessPage)
m_strProcessPage=strProcessPage
EndProperty
PublicPropertyGetTitle()
IfIsNull(m_strTitle)OrLen(m_strTitle)=0Then
Title="DataGrid"
Else
Title=m_strTitle
EndIf
EndProperty
PublicPropertyLetTitle(strTitle)
m_strTitle=strTitle
EndProperty
PublicPropertyGetRSName()
IfIsNull(m_strRSName)OrLen(m_strRSName)=0Then
RSName="Grid"
Else
RSName=m_strRSName
EndIf
EndProperty
PublicPropertyLetRSName(strRSName)
m_strRSName=strRSName
EndProperty
PublicPropertyGetFindFields()
FindFields=m_strFindFields
EndProperty
PublicPropertyLetFindFields(strFindFields)
m_strFindFields=strFindFields
EndProperty
SubShowDataGrid()
DimintPageNum
DimobjConn
DimobjRS
DimintAbs
DimintCurrentPage
DimintFindCol
DimintPageSize
DimintRow
DimintCol
Dimi
DimintPos
DimintDisplayRows
DimstrSort
DimstrSortDir
DimstrLastSort
DimstrLastSortDir
DimstrColor
DimstrFind
DimboolFind
DimboolFound
</p>asp,你就只能等着微软给你解决,它不乐意你就只好悲催。而且asp跑在windows服务器上,windows服务器跟linux比起来简直弱爆了! 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。 我可以结合自己的经验大致给你说一说,希望对你有所帮助,少走些弯路。 封装性使得代码逻辑清晰,易于管理,并且应用到ASP.Net上就可以使业务逻辑和Html页面分离,这样无论页面原型如何改变,业务逻辑代码都不必做任何改动;继承性和多态性使得代码的可重用性大大提高。 代码的可重用性差:由于是面向结构的编程方式,并且混合html,所以可能页面原型修改一点,整个程序都需要修改,更别提代码重用了。 Request:从字面上讲就是“请求”,因此这个是处理客户端提交的东东的,例如Resuest.Form,Request.QueryString,或者干脆Request("变量名") 学习ASP其实应该上升到如何学习程序设计这种境界,其实学习程序设计又是接受一种编程思想。比如ASP如何学习,你也许在以前的学习中碰到过。以下我仔细给你说几点: 不是很难但是英文要有一点基础网上的教程很少有系统的详细的去买书吧,另不用专门学习vb关于vbscript脚本在asp教材都有介绍 虽然ASP也有很多网络教程。但是这些都不系统。都是半路出家,只是从一个例子告诉你怎么用。不会深入讨论,更不会将没有出现在例子里的方法都一一列举出来。
页:
[1]