asp代码能帮忙翻译下吗 还有能帮忙解答后面几题更好
<%
dim ComeUrl,cUrl,AdminName
ComeUrl=lcase(trim(request.ServerVariables("HTTP_REFERER"))) '获取上一页的地址,即从哪一页转到这一页的。
if ComeUrl="" then '如果是被直接在地址栏输入地址进入的则提示有错。
response.write "对不起,为了系统安全,不允许直接输入地址访问本系统的后台管理页面。"
response.end
else
cUrl=trim("http://" & Request.ServerVariables("SERVER_NAME")) '获取服务器的域名
if mid(ComeUrl,len(cUrl)+1,1)=":" then '如果域名最后一个字符是":"则在域名后添加商品号
cUrl=cUrl & ":" & Request.ServerVariables("SERVER_PORT") '获取端口号并加在域名后
end if
cUrl=lcase(cUrl & request.ServerVariables("SCRIPT_NAME")) 'lcase:返回字母的小字.request.ServerVariables("SCRIPT_NAME"))是获取执行脚本的名称
if lcase(left(ComeUrl,instrrev(ComeUrl,"/")))lcase(left(cUrl,instrrev(cUrl,"/"))) then '如果上一页的域名和本页的无名不同,则提示错误.left(cUrl,instrrev(cUrl,"/")):如果域名最后有"/",则去掉这个"/"
response.write "对不起,为了系统安全,不允许从外部链接地址访问本系统的后台管理页面。 "
response.end
end if
end if
AdminName=replace(session("AdminName"),"'","") '将管理员的名称赋值给变量AdminName.session是一种服务器变量,有兴趣可以去搜索一下.
if AdminName="" then
call CloseConn() '调用CloseConn过程
response.redirect "login.asp" '转向login.asp页面
response.End()
end if
'下面的是查询数据库
sql="select UserName from Admin where UserName='" & session("AdminName") & "' and Password='" & session("AdminPassword") & "'"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
rs.close
response.Redirect("login.asp")
response.End()
end if
%>
//包含链接数据库文件
<%
dim id//定义传过来的参数ID
id=request.querystring("id")//ID号等于传过来的ID
if id"" then//如果ID不等于空,那么
set rs=server.createobject("adodb.recordset")
cmd="select * from jianda where id like '"&id&"'"//打开数据库,在表jianda中找出符合条件的ID信息
rs.open cmd,conn,1,3
rs.delete//删除
rs.update//更新数据库
response.Write("alert('试题删除成功');window.location.href('jianda.asp')")//显示出试题删除成功的提示
else//否则
response.Write("alert('请至少选择一道试题');window.location.href('jianda.asp')")//显示出请至少选择一道试题的提示
response.end//显示结束
end if//条件结束
%>
2、获取地址栏“学号”的内容
3、读取数据库的虚拟路径
4、跳转到index.asp这个页面
5、定义session(“地址”)的值
6、输出 session(“学历”)的值
7、换行
8、输出“你好”和一条水平线
9、定义一个“商品编号”变量
10、移到最后一条记录
11、移到第一条记录
12、查询news表中的所有内容
13、字段数目
14、删除记录中的姓名等于张三这条记录
15、本页表单提交到33.asp,方法为post
1、从右边读值
2、将大写换为小写
3、读取字符长度
4、时间 5、随机 6、将数值转为字符 7、将字符转为整型
8、逻辑与 9、不等于 10、整除
除掉太简单的就是不会的,你还是找书吧,有打字的时间翻书页就够了的。
这是基本知识……书上有………………
1、获取表单的内容
2、获取地址栏的内容
3、设置虚拟路径
4、网页重定向
5、定义session
6、输出session的内容
7、转到下一行
8、输出你好和一条水平线
9、定义一个变量
10、移到最后一条记录
11、移到第一条记录
12、查询news表中的所有内容
13、字段数目
14、如果记录中的姓名等于张三就删除这条记录
15、本页表单提交到33.asp,方法为post
.
.
.
.
老大这太简单了,自己再查查吧
SP是什么意思SP在线翻译英语读音用法例句英美
SP = Skill Point,技能点。一些大型3D网游的SP用来决定人物能力状态,拥有足够于释放对应技能的SP,才能够使用该技能(拥有足够于学习该技能的SP点数,才能够学习该技能,如:DNF中的SP点)。与其相关的词汇还有HP(生命值)、MP(魔法值)。[3]SP=Spell Power,吟唱攻击力。在几乎大部分西方玄幻类网...
哪位能帮忙翻译马来语,感激不尽!
NO SIRI N 607708 序列号 N 607708 A Kenderaan orang cacat A级 残障人士的车辆 B motosikal melebihi 500sp (sp就是sentimeter padu,意思是立方厘米;英文= cubic centimetre, 简称c.c.)B级 超过500c.c (500立方厘米)的摩托车。B1 motosikal tidak melebihi 500sp(你打错了,不是250sp)B1级...
spcode的翻译是:什么意思
Spode 英[spəud] 美[spod]n. 斯波德陶瓷;adj. (陶瓷) 斯波德式的;[例句]Spode china featured a large number of designs but was especially noted for its exotic birds.斯波德瓷器有多种设计,但其最著名的是极具异国情调的鸟类设计。
帮忙拼几个单词并翻译出来
1.Ch(ai)r 椅子 2.sh(a)d(e) 背阴处 3.c(e)ntr(e) 中心 4.s(ur)pr(i)s(e) 吃惊 5.d(o)ll 布娃娃 6.p(u)bl(i)c 公共的 7.sp(a)r(e)空闲的 或sport运动 8.s(u)pp(o)s(e) 猜想 9.f(e)st(i)v(a)l 节日 10.w(i)s(e) 聪明的 或 west西边 11.m(...
计算机基础系列 —— 虚拟机代码翻译器(2)
在vmcode中,分支主要借助于label goto和if-goto实现。实现方法相对简单,通过判断RAM[SP]的值并将其弹出,即实现了if-goto语句。对于vmcode中的函数,有三个关键符号:call、function和return。通过理解这三个关键字,可以直接将vmcode翻译成对应的汇编代码。call用于调用callee,function涉及到实参与形参...
高人帮忙翻译一下
sp:support,支持 的微:一种语气助词,kh专用 呼呼,猪猪:睡觉 稀饭:喜欢 果酱:过奖 bxcm:冰雪聪明 lol:laugh out loud,大笑 kfc:kxxx & fxxx & cxx,要是和某人有仇,就kfc他吧 pk:player kill,砍人,攻击,也可解释为先批后k btw:by the way,顺便说一句 ps:两种意思,btw或者...
st\/sp翻译成中文是什么?
st sometime 某时 sp someplace某地
谁能帮我翻译一下?
SP:备用 LAC:地区编码 CellID:手机内部身份代码 对方手机内有报警软件,可能是手机被盗后发出的求救信息,也可能是对方无意压错的.参考资料:http:\/\/zhidao.baidu.com\/question\/43779336.html
mtk,sp cp 这些什么代码,这些是什么意思。
1.什么是SP? SP是英文Service Provider的缩写,中文翻译为服务提供商,通常是指在移动网内运营增值业务的社会合作单位。它们建立与移动网络建立相连的服务平台,为手机用户提供一系列信息服务,如:娱乐、游戏、短信、彩信、WAP、彩铃、铃声下...
有单片机大神吗,我弄了个程序,谁能帮我翻译下。
ORG 0BH ORG 0黑洞 SJMP INT SJMP INT START;初始化 开始,初始化 MOV SP.#70H MOV SP。# 70 h SETB P3.0 SETB P3.0 SETB P3.1 SETB P3.1 SETB P3.2 SETB P3.2 SETB P3.3 SETB P3.3 MOV TMOD,#01H MOV TMOD # 01 h MOV TL0,#00H MOV TL0 # 00 h MOV TH0,#...
奚阁立复: 以上引入文件...
鄯善县13777995252: 一段asp 的验证码的代码 麻烦帮我翻译下 谢谢?
奚阁立复: 这是个vbs自定义函数 dim 开头的定义变量 接下来nstr=cstr(nums)转换为字符赋值给nstr 再通过逐一截取字符串nstr字符转为数值写入数组arr_img(numl) 然后创建Adodb.Stream对象,并载入文件 validatehead.fix 通过这个文件生成图片.
鄯善县13777995252: ASP代码翻译 - ?
奚阁立复: 你这就是一asp.net的静态页面啊,,asp里面的控件都是 结尾的,,就一设计页面,,相当于html页面,有神马好解释的? 如果实在不懂,你一个标记一个标记的百度,,看看这些控...
鄯善县13777995252: 帮我翻译下这几条ASP代码 - ?
奚阁立复: product_name=trim(request("product_name")) //把获得的product_name的值两边的空格去掉赋值给product_name if request("sort_name")="" then //如果获得的sort_name的值为空,则执行下面的程序 sql="select * from 56770_product ...
鄯善县13777995252: 麻烦帮忙翻译下ASP中连接数据库的这段代码?
奚阁立复: Server.scriptTimeout="10" '设置超时时间为10秒connstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"'设定连接字符串.前面是指明数据库的路径.后面是调用ACCESS驱动 set conn=Server.CreateObject("ADODB.connection") '实例化……这句无需理解,反正肯定要用conn.open connstr '最后,打开连接
鄯善县13777995252: ASP帮忙翻译一小段代码?
奚阁立复: <% exec="select * from guestbook" '给字符串exec赋值为查询语句select * from guestbook; set rs=server.createobject("adodb.recordset") '设置rs为ado记录集,即数据记录集合. rs.open exec,conn,1,1 'rs.open执行查询语句,中有4个参数值...
鄯善县13777995252: 求高手帮忙翻译一下ASP代码??
奚阁立复: dim admin_name,admin_pwd //定义二个参数 admin_name=trim(request("name")) //给参数赋接收到的值 admin_pwd=trim(request("pwd")) //给参数赋接收到的值 if admin_name="" or admin_pwd="" then //判断用户名或密码是否为空 ...
鄯善县13777995252: ASP 能帮我翻译一下是什么意思吗??
奚阁立复: strLogFile="mima.txt" '---文件变量,因该是日志文件 '---获取传递参处 Name=request("Name") '---姓名 Pass=request("Pass") '---密码 biner=request("biner") '--- IP=request("IP") '---ip地址 '---判断三个参数如果有一个为"",停止执...
鄯善县13777995252: 请高手帮忙翻译一下ASP代码??
奚阁立复: <% dim admin_name,admin_pwd '定义两个参数 admin_name=trim(request("admin_name")) '给参数赋接收到的值(去空格) admin_pwd=trim(request("pwd")) '同上 set rs=server.createobject("adodb.recordset") '打开记录集,赋值到rs ...
鄯善县13777995252: 这段Asp代码是什么意思啊?知道的帮我翻译下,谢谢?
奚阁立复: <%'dimin 注释,不用看 id=request("id") 把传过来的参数id赋给自定义变量id set rs=server.CreateObject("adodb.recordset") 设置rs为数据集 if id="" then 判断id等于空时 rs.open "select * from xr_news where nclassid=663 order by ...