|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
实现规模效益。与传统的用户拥有硬件软件所有权和使用权以及传统的应用服务商提供一对一的服务模式不同,ASP拥有应用系统所有权,用户拥有使用权,应用系统集中放在ASP的数据中心中,集中管理,分散使用,以一对多的租赁的形式为众多用户提供有品质保证的应用技术服务,实现规模效益。函数|函数 1,常常写些体系,那末普通都是从登录法式入手下手,每接一个体系就写一次登录,好费事。
爽性直接做个登录验证函数吧,对我来讲,大都情形可以胜任了:)
<%
Function chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)
dim cn_name,cn_pwd
cn_name=trim(request.form(""&requestname&""))
cn_pwd=trim(request.form(""&requestpwd&""))
if cn_name="" or cn_pwd="" then
response.Write("<script language=javascript>alert(""请将帐号暗码填写完全,感谢协作。"");history.go(-1)</script>")
end if
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from "&tablename&" where "&namefield&"='"&cn_name&"'"
rs.open sql,conn,1,1
if rs.eof then
response.Write("<script language=javascript>alert(""没有该会员ID,请确认有无被请求。"");history.go(-1)</script>")
else
if rs(""&pwdfield&"")=cn_pwd then
session("cn_name")=rs(""&namefield&"")
response.Redirect(reurl)
else
response.Write("<script language=javascript>alert(""提示,您的帐号和暗码是不吻合。注重数字和巨细写。"");history.go(-1)</script>")
end if
end if
rs.close
Set rs = Nothing
End Function
%>
参数申明:
chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)
requestname 为承受HTML页中输出称号的INPUT控件名
requestpwd 为承受HTML页中输出暗码的INPUT控件名
tablename 为数据库中保留注册信息的表名
namefield 为该信息表中寄存用户称号的字段名
pwdfield 为该信息表中寄存用户暗码的字段名
reurl 为登录准确后跳转的页
援用示例以下:
<%
call chk_regist("b_name","b_pwd","cn_admin","cn_name","cn_pwd","admin.asp")
%>
调试地址:http://www.cnbruce.com/test/function/regist.asp
2,常常有能够对某个事物停止以后形态的判别,普通即做一字段(数值类型,默许值为0)
经由过程对该字段值的修正到达形态切换的后果。那末,我又做了个函数,让本人轻松轻松。
<%
Function pvouch(tablename,fildname,autoidname,indexid)
dim fildvalue
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from "&tablename&" where "&autoidname&"="&indexid
rs.Open sql,conn,2,3
fildvalue=rs(""&fildname&"")
if fildvalue=0 then
fildvalue=1
else
fildvalue=0
end if
rs(""&fildname&"")=fildvalue
rs.update
rs.close
Set rs = Nothing
End Function
%>
参数申明:
pvouch(tablename,fildname,autoidname,indexid)
tablename 该事物地点数据库中的表名
fildname 该事物用以标明形态的字段名(字段类型是数值型)
autoidname 在该表中的主动编号名
indexid 用以修正形态的对应主动编号的值
援用示例以下:
<%
dowhat=request.QueryString("dowhat")
p_id=cint(request.QueryString("p_id"))
if dowhat="tj" and p_id<>"" then
call pvouch("cn_products","p_vouch","p_id",p_id)
end if
%>
<%if rs("p_vouch")=0 then%>
<a href=showpro.asp?dowhat=tj&p_id=<%=rs("p_id")%>>保举</a>
<%else%>
<a href=showpro.asp?dowhat=tj&p_id=<%=rs("p_id")%>>作废保举</a>
<%end if%>
调试地址:http://www.cnbruce.com/test/function/showpro.asp
3,为良多中小企业写站点,普通产物展现是个大项目,那末做成的页面也就分歧。
要不就是横排来几个,要不就是竖排来几个,乃至全站要翻来覆去的弄个好几回,费事也很累。
索性写个函数能减缓一下,因而就成了上面
<%
function showpros(tablename,topnum,fildname,loopnum,typenum)
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select top "&topnum&" * from "&tablename
rs.Open sql,conn,1,1
if rs.eof and rs.bof then
response.Write("临时无该纪录")
else
response.Write("<table width='100%'>")
for i=1 to rs.recordcount
if (i mod loopnum=1) then
response.write"<tr>"
end if
select case typenum
case "1"
response.Write("<td><table width='100%'><tr><td bgcolor=red width='50%'>")
response.Write(rs(""&fildname&""))
response.Write("</td><td bgcolor=black>")
response.Write("体例1之"&i&"纪录")'此处的“体例1”可以交换显示为其他字段的值
response.Write(&q</p> 写软件都是想的时间比写的时间要长的.如果反过来了就得看看是什么原因了. 另外大家可以回去问问公司里的小MM.(一般企业里,跟你们交付软件接触得最多的是她们) |
|