ASP应用中的应用函数1永利集团304com:

<%
Function CreateTableName(TableName)
TableSql=”CREATE TABLE “&TableName&” (“
TableSql=TableSql+”UserID autoincrement PRIMARY KEY,”
TableSql=TableSql+”UserName VARCHAR(20),”
TableSql=TableSql+”Password VARCHAR(16),”

[收集]ASP应用中的应用函数1【转自www.bitsCN.com】

TableSql=TableSql+”GradeLevel Long,”
TableSql=TableSql+”GradeName VARCHAR(20),”
TableSql=TableSql+”PostID Long,”
TableSql=TableSql+”PostName VARCHAR(20),”

 

TableSql=TableSql+”UserRealName VARCHAR(10),”
TableSql=TableSql+”UserSex VARCHAR(10),”
TableSql=TableSql+”UserTel VARCHAR(20),”
TableSql=TableSql+”UserMobile VARCHAR(20),”

1,登入验证函数

TableSql=TableSql+”WorkQQ VARCHAR(20),”
TableSql=TableSql+”WorkEmail VARCHAR(60),”
TableSql=TableSql+”WorkMSN VARCHAR(60),”
TableSql=TableSql+”WorkDuty VARCHAR(20),”

 

TableSql=TableSql+”CheckStatus BIT NOT NULL,”
TableSql=TableSql+”CheckUser VARCHAR(20),”
TableSql=TableSql+”CheckTime DateTime,”
TableSql=TableSql+”CheckIP VARCHAR(16),”
TableSql=TableSql+”CheckFrom VARCHAR(100),”

<%

TableSql=TableSql+”AddUser VARCHAR(20),”
TableSql=TableSql+”AddTime DateTime,”
TableSql=TableSql+”AddIP VARCHAR(16),”
TableSql=TableSql+”AddFrom VARCHAR(100),”

Function
chk_regist(requestname,requestpwd,tablename,namefield,pwdfield,reurl)

TableSql=TableSql+”UpdateUser VARCHAR(20),”
TableSql=TableSql+”UpdateTime DateTime,”
TableSql=TableSql+”UpdateIP VARCHAR(16),”
TableSql=TableSql+”UpdateFrom VARCHAR(100),”

dim cn_name,cn_pwd

TableSql=TableSql+”TotalLoginTimes Long,”

cn_name=trim(request.form(“”&requestname&””))

TableSql=TableSql+”LoginTime DateTime,”
TableSql=TableSql+”LoginIP VARCHAR(16),”
TableSql=TableSql+”LoginFrom VARCHAR(100),”

cn_pwd=trim(request.form(“”&requestpwd&””))

TableSql=TableSql+”LastLoginTime DateTime,”
TableSql=TableSql+”LastLoginIP VARCHAR(16),”
TableSql=TableSql+”LastLoginFrom VARCHAR(100)”

if cn_name=”” or cn_pwd=”” then

TableSql=TableSql+”)”

   response.Write(“<script
language=javascript>alert(“”请将帐号密码填写完整,多谢合作。””卡塔尔;history.go(-1卡塔尔</script>”卡塔尔

response.Write(“<br>正在推行数据库操作语句”&TableSql卡塔尔(قطر‎
conn.execute(TableSql)
if err then
response.Write(“<br>产生系统错误”State of Qatar
response.Write(err.description)
else
response.Write(“<br>语句实施成功”卡塔尔国
end if

end if

end Function
%>

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(-1State of Qatar</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 为数据库中保存注册音讯的表名

name田野先生 为该新闻表中寄存客商名称的字段名

pwd田野先生 为该新闻表中存放客商密码的字段名

reurl 为记名精确后跳转的页

 

引用示举个例子下:

 

<%

call
chk_regist(“b_name”,”b_pwd”,”cn_admin”,”cn_name”,”cn_pwd”,”admin.asp”)

%>

 

 

 

调整地址:

 

2,经常有望对有些事物进行当下场合包车型地铁剖断,经常即做一字段(数值类型,暗中认可滴?)

经过对该字段值的修正达到气象切换的法力。那么,笔者又做了个函数,让投机轻轻便松自在。

 

<%

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 用以改良情形的对应自动编号的值

 

援用示举例下:

 

 

永利集团304com,<%

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”State of Qatar%>>撤销推荐</a>

<%end if%>

 

 

 

 

3.HTML转变函数

 

动作调换来HTML

 

Function HTMLEncode(reString卡塔尔国 ’调换HTML代码(展现数据时接受卡塔尔国

   Dim Str:Str=reString

   If Not IsNull(Str) Then

      Str = Replace(Str, “&”, “&”)

发表评论

电子邮件地址不会被公开。 必填项已用*标注