ASP教程之排序体例办理“高低主题”成绩（二）
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。办理|排序|成绩讲话：add_massege.asp------------部分，未经优化收拾------------
<bodybgcolor="#C8C8E6">
<scriptlanguage="VBScript">
SubGoBack()
form1.btn1.value="前往"
history.go(-1)
endsub
</Script>
<%
name1=Session("Uname")
Ifname1=""Then
Response.Write"<fontsize=3color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"只要会员才干利用此项功效，请您注册或登录！<p>"
Response.Write"<ahref=main1.htm>回上页</a>"
Response.End
EndIf
psw1=Session("Upsw")
orderid=Request("txtOrderid")
face=Request("R1")
level=Request("txtLevel")
name=Request("txtName")
psw=Request("txtPsw")
work=Session("Uwork")
add=Session("Uadd")
eee=Session("Unid")
mail=Request("txtMail")
subject=Request("txtSubject")
ip=Request.ServerVariables("Remote_Addr")
Ifname=""ORpsw=""Then
Response.Write"<fontsize=5color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"请填写你的名字/暗码～<p>"
%>
<formname=form1>
<inputtype="button"name="btn1"value="前往"onClick="GoBack">
</form>
<%
Response.End
EndIf
Ifnamename1Orpswpsw1Then
Response.Write"<fontsize=5color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"您的名字/暗码有毛病，请细心填写！～<p>"
%>
<formname=form1>
<inputtype="button"name="btn1"value="前往"onClick="GoBack">
</form>
<%
Response.End
EndIf
Ifsubject=""Then
Response.Write"<fontsize=5color=blue><center>"
Response.Write"<br>"
Response.Write"<br>"
Response.Write"请填写您的讲话主题～<p>"
%>
<formname=form1>
<inputtype="button"name="btn1"value="前往"onClick="GoBack">
</form>
<%
Response.End
EndIf
IForderid""Then
j=Len(orderid)
mmm=Left(orderid,j-1)
Setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
conn.Open"Driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
SetRS=conn.Execute("SelectA_ID,A_OrderIDFromMASSEGE")
DOWhilenotRS.EOF
nnn=RS("A_OrderID")
IfLeft(nnn,j-1)=mmmThen
aaa=Asc(Mid(nnn,j,1))
Ifaaa=122Then
qqq=mmm+"a"+"z"
Else
qqq=mmm+Chr(aaa+1)+"z"
EndIf
EndIf
RS.MoveNext
Loop
RS.Close
conn.Close
Else
Setmyconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
myconn.Open"Driver={MicrosoftAccessDriver(*.mdb)};dbq="&DBPath
SQLcmd1="Select*FromMASSEGEWhereA_Level=0OrderByA_IDDESC"
SetRS=myconn.Execute(SQLcmd1)
nnn=RS("A_OrderID")
a=Asc(Left(nnn,1))
b=Asc(Mid(nnn,2,1))
c=Asc(Mid(nnn,3,1))
d=Asc(Mid(nnn,4,1))
e=Asc(Mid(nnn,5,1))
f=Asc(Mid(nnn,6,1))
%>
<%=Chr(a)%>11<%=Chr(b)%>22<%=Chr(c)%>33<%=Chr(d)%>44<%=Chr(e)%>55<%=Chr(f)%>66
<%
Iff<122Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e)+Chr(f+1)+"z"
%>
<%=qqq%>77
<%
Else
Ife<122Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d)+Chr(e+1)+"az"
%>
<%=qqq%>88
<%
Else
Ifd<122Then
qqq=Chr(a)+Chr(b)+Chr(c)+Chr(d+1)+"aaz"
%>
<%=qqq%>99
<%
EndIf
EndIf
EndIf
RS.Close
myconn.Close
Endif
text=Server.HTMLEncode(Request("txtText"))
%>
<%=text%>
<%Onerrorresumenext
Setconn=Server.CreateObject("ADODB.Connection")
DBPath=Server.MapPath("../fpdb/massege.mdb")
con</p>asp可以轻松地实现对页面内容的动态控制，根据不同的浏览者，显示不同的页面内容。而浏览者一点觉察不出来，就像为他专门制作的页面一样。使用各种各样的组件，asp可以完成无比强大的功能。 Response:从字面上讲是“响应”，因此这个是服务端向客户端发送东西的，例如Response.Write 我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。 如何更好的使自己的东西看上去很不错等等。其实这些都不是问题的实质，我们可以在实践中不断提升自己，不断充实自己。 用户端的浏览器不需要提供任何别的支持，这样大提高了用户与服务器之间的交互的速度。 学习ASP其实应该上升到如何学习程序设计这种境界，其实学习程序设计又是接受一种编程思想。比如ASP如何学习，你也许在以前的学习中碰到过。以下我仔细给你说几点: 最近在学asp，不要问我为什么不直接学.net，因为公司网站是asp做的所以有这个需要，卖了本书asp入门到精通，对里面的六大内置对象老是记不住，还有很多属性和方法看的头晕。 我可以结合自己的经验大致给你说一说，希望对你有所帮助，少走些弯路。 如何学好ASP,以前也有人问过,把回答给你转过来看看能否对你有帮助: 你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。
页:
[1]