仓酷云

标题: ASP网页编程之附：源代码3：BBSSENDINFO.ASP [打印本页]

作者: 若天明 时间: 2015-1-16 23:34
标题: ASP网页编程之附：源代码3：BBSSENDINFO.ASP
ASP脚本是采用明文（plaintext）方式来编写的。源代码<%@Language=VBScript%>
<%
id=trim(Request.QueryString("userid"))失掉以后的用户称号,就是本人(即是Session("UserID"))
ifRequest.QueryString("act")="send"then猎取以后的操纵形态
who=trim(Request.Form("who"))假如是发送形态,就猎取发送到的用户称号
content=trim(Request.Form("content"))假如是发送形态,就猎取发送的内容

ifwho=""orcontent=""then
Response.Redirect"error.asp?msg=姓名大概讯息内容为空,没法传送!"
endif
由于&,$是传呼信息区的支解标记,以是要过滤失落这些字符,不同意用户输出这些字符
ifinstr(1,who,"&")>=1orinstr(1,who,"$")>=1orinstr(1,content,"&")>=1orinstr(1,content,"$")>=1then
Response.Redirect"error.asp?msg=姓名大概讯息内容包括不法字符($/&),没法传送!"
endif

iftrim(application("Message"))=""then
Application.Lock将传呼信息放到传呼信息行列傍边
application("Message")=who&"$"&content&"$"&trim(Request.QueryString("userid"))
Application.UnLock
else
Application.Lock将传呼信息放到传呼信息行列傍边
application("Message")="&"&who&"$"&content&"$"&trim(Request.QueryString("userid"))
Application.UnLock
endif

Response.Write"<scriptlanguage=javascript>self.close()</script>"
Response.End
else
**************************
入手下手剖析处置"传呼信息行列",获得属于本人的传呼信息
iftrim(application("Message"))""then
msg=split(application("Message"),"&")支解失掉传呼信息区，并保留到数组
fori=0toubound(msg)
ifinstr(1,trim(msg(i)),trim(Request.QueryString("userid")))>=1then
mymsg=split(msg(i),"$")支解失掉每一个传呼信息区的具体信息
iftrim(mymsg(0))=trim(Request.QueryString("userid"))then这条传呼信息是发给我的!
msgok=1有人呼唤我的表记置为1
from=trim(mymsg(2))取得传呼的具体内容
content=trim(mymsg(1))
sendto=trim(mymsg(0))
endif
endif
next
endif
****************************
endif
%>
<html>
<title>收集传呼机</title>
<head>
<scriptlanguage="javascript">
functionnosend()
{
document.frmmail.action="bbsSendInfo.asp?act=wait&userid=<%=trim(Request.QueryString("userid"))%>"
document.frmmail.submit();
}
functionmeclose()
{
document.frmmail.action="bbsSendInfo.asp?act=closeme&userid=<%=session("userid")%>"
document.frmmail.submit();
}
functiondestory()
{
<%iftrim(request("act"))="closeme"then
cancelme=trim(Request.QueryString("userid"))&"$"&content&"$"&trim(from)
application.lock
application("Message")=replace(application("Message"),cancelme,"")
application.unlock%>
self.close()
<%endif%>
}
functionchkok()
{
if(document.frmmail.content.value=="")
{
alert("您不克不及说"废话"喔!");
return;
}
document.frmmail.submit();
}
</script>
</p>实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同，ASP拥有应用系统所有权，用户拥有使用权，应用系统集中放在ASP的数据中心中，集中管理，分散使用，以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务，实现规模效益。

作者: 简单生活 时间: 2015-1-20 09:55
以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

作者: 愤怒的大鸟 时间: 2015-1-26 12:23
运用经典的例子。并且自己可以用他来实现一些简单的系统。如果可以对他进行进一步的修改，找出你觉得可以提高性能的地方，加上自己的设计，那就更上一个层次了，也就会真正地感到有所收获。

作者: 不帅 时间: 2015-2-1 16:06
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

作者: 老尸 时间: 2015-2-7 07:32
它可通过内置的组件实现更强大的功能，如使用A-DO可以轻松地访问数据库。

作者: 蒙在股里 时间: 2015-2-20 23:59
ASP也是这几种脚本语言中最简单易学的开发语言。但ASP也是这几种语言中唯一的一个不能很好支持跨平台的语言。　　因为ASP脚本语言非常简单，因此其代码也简单易懂，结合HTML代码，可快速地完成网站的应用程序。

作者: 因胸联盟 时间: 2015-3-6 19:11
我想问如何掌握学习节奏(先学什么再学什么)最好详细点?

作者: 变相怪杰 时间: 2015-3-13 06:10
我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

作者: 再见西城 时间: 2015-3-13 06:10
那么，ASP.Net有哪些改进呢？

作者: 飘灵儿 时间: 2015-3-20 14:44
哪些内置对象是可以跳过的，或者哪些属性和方法是用不到的?

欢迎光临仓酷云 (http://ckuyun.com/)