asp获取URL的方法
方法一：简单，得不到参数，只有一个虚拟路径
GetUrl =request("url")
例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为:shiyan.asp
方法二：得到整个URL，得到参数
'得到当前页面的地址
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
例如：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
获取为：http://127.0.0.1/shiyan.asp?dfsdfsf=dsfsdfd&aa=dddd
方法二：得到虚拟路径，得到参数
Private Function GetUrl()
Dim ScriptAddress,M_ItemUrl,M_item
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址
相关文档：
<!--#include file="config.asp" -->
<!--#include file="Fun.asp" -->
<%
'数据库管理类
class Datas
'备份
public sub Bk()
Set fso=server.createobject("scripting.filesystemobject")
fso.CopyFile Server.MapPath(SiteDataPath),Server.MapPath(SiteDataBakPath)
......
漏洞描述:
在login.asp中，接收用户输入的Userid和Password数据，并分别赋值给user和pwd，然后再用sql="select * from admin where username="&user&" and password="&pwd&"" 这句来对用户名和密码加以验证。
以常理来考虑的话，这是个很完整的程序了。而在实际的使用过程中，整套程序也的 ......
<%
'购物车类 类名：UserCart
'作者:gameing
'基本原理:此类用服务器Session变量保存商品数据,商品用一个数组表示.此类里面保存了三中商品价格.
'1、2008-11-25修改Function AddItem() by tommy 商品增加在最后
'2、2008-11-25修改by tommy 增加删除商品过程 Sub DelItem()
'3、2008-11-25转换一些数据类型才能� ......
现象：普通的html文字显示正常，但用response.write等asp代码输出的文字就出现乱码
解决方法：起初以为是浏览器编码出错的原因，所有在代码中加入
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
但还是出现乱码，问题没解决，上面的代码指定的是html静态文字的编码
最后查资料反省是c ......
1) Delphi向oracle中传递参数 如oracle中的参数名为erpcx
答：如果想从表里取值到oracle，则erpcx:=trim(aq1.fieldbyname('erpcx').AsString);
否则直接用控件名字
语句为
with aperp do
begin
connection:=dm.ADOCerp;
parameters.Clear;&nbs ......
