闲着没事干的人进来看看

[PiQiu]

辛辛苦苦写了2个函数，老大现在竟然说要改用在ASP上，无语啊。哪个闲着没事干帮忙改版改版，偶可不会ASP啊，这不是刁难我么。
好心有好抱啊，也许明天睡醒就发现你身边躺着个MM啦。

函数一（Java)：
public final static String replaceSpecialChar(String value) {

int i = 0, charVal = 0;

for(i=0; i<value.length(); i++){
charVal = value.charAt(i);
// if the present character is not 0-9, A-Z or a-z....
if( (charVal>=32 && charVal<=47) || (charVal>=58 && charVal<=64) || (charVal>=91 && charVal<=96) || (charVal>=123 && charVal<=126)){
try{
value = value.substring(0, i) + "%" + Integer.toHexString(charVal) + value.substring(i+1);
}catch (StringIndexOutOfBoundsException e){
value = value.substring(0, i) + "%" + Integer.toHexString(charVal);
}
i += Integer.toHexString(charVal).length();
}
}// end for

return value;
}

函数二(Java)：
private String addTParam(HttpServletRequest req) {

String miQueryString = "", name = null, value = null;

Enumeration e = req.getParameterNames();
miQueryString = "&tParam=";
if (e.hasMoreElements()) {

while (e.hasMoreElements()) {
name = (String)e.nextElement();
if (!name.equals("LANGTAG") && !name.equals("COUNTRYTAG")) {
value = Util.replaceSpecialChar(get(req, name));
if (!value.equals("")) {
if (e.hasMoreElements())
miQueryString = miQueryString + name + "~~" + value + "~~";
else
miQueryString = miQueryString + name + "~~" + value;
}
}
}
}

if (miQueryString.length() > 3) {
if (miQueryString.substring(miQueryString.length()-2, miQueryString.length()).equals("~~")) {
miQueryString = miQueryString.substring(0, miQueryString.length()-2);
}
}

return miQueryString;
}

[bigfIyingpig]

哦

[MTring]

不会 帮你鸭

[PiQiu]

#_#
晕死啊,正在拼命看VBScript...
这次真的是怒了...
我想回去看刁蛮公主啊.

[garfeildma]

不会，刚学C

[liukang520236]

哦

[lionetsoft]

Function replaceSpecialChar(Dim value As String) As String
Dim i As int
Dim charVal As int
i =0
charVal =0
For i =0 To Len(value)
charVal = chr(i)
If (charVal>=32 And charVal<=47) OR (charVal>=58 And charVal<=64 ) OR (charVal>=91 And charVal<=96) OR (charVal>=123 And charVal<=126) Then
value = mid(value,0, i) & "%" & Hex(charVal) & mid(value,i+1)
i =i+ length(charVal)
End If
Next

replaceSpecialChar = value
End Function

'有些函数自己去查，查对应的就行了吧，烦死了，睡去了

[lionetsoft]

我现在用C#，C++了，ASP很久没用过了,大体语法是这样

[PiQiu]

to LZ:
郁闷你们老大怎么这样啊，
难不成，她想把你们训练成什么语言都会的全财(钱财)?

---------------------------------------------
没办法，拿人钱财，替人消灾...

[PiQiu]

谢谢苞参大师啦，昨晚苦战一个晚上，基本已经知道怎么写了。
可是就是还有一个问题没解决。
我知道要获取Request中的value可以用：

value = Request.QueryString(key)

但是，如果，我连key的值都不知道，而我的需求却是既要获取key，又要获取value，又该如何是好啊？

For Each Item In Request.QueryString
value = Request.QueryString(Item)
Next

可以获取所有的value值，可是key值呢？

PS:这次还是算好的了，上次更是郁闷，要我用什么鸟语Python写。。。哎，混口饭吃不容易啊

[Bible_Chou]

to LZ:
郁闷你们老大怎么这样啊，
难不成，她想把你们训练成什么语言都会的全财(钱财)?

[lionetsoft]

如果有值则取其值,无值则为空

If Request.QueryString("key") <>"" Then
value = Request.QueryString("key")
Else
value = 0
End If

另外这样

value = CInt(Request.QueryString("key")) '系统自动将一个""转化为0

效果也是一样的
总之来说,VB的特点是弱类型语言,只要是数字字符,随时可为字符,也可为数字.

[asdg]

要两边通吃的,有意思,华科尔,一起up.

[GaoXX]

up

[Specialman]

strText =Request.QueryString
arrText= split(strText,"&")
if UBound(arrText) >= 0 then
for i=0 to UBound(arrText)
strTotal = arrText(i)
strKey = split(strTotal,"=")(0)
strValue = request.QueryString(strKey)
next
end if

[掐死温柔]

JAVA不会

[cfcodefans]

楼主，其实asp也可以用javascript写的，javascript的string和java的差不太多，现在可以不用vb写asp的，javascript写的方法vbscript一样可以调用的