diff --git a/easyasp/core/easp.var.asp b/easyasp/core/easp.var.asp
index 265d4672813f6ec02e1b1424131893560494e8a8..121599e1dbed911be68629ad572686c1380f44f6 100644
--- a/easyasp/core/easp.var.asp
+++ b/easyasp/core/easp.var.asp
@@ -128,7 +128,7 @@ Class EasyASP_Var
     ElseIf requestType = "post" Then
       Set requestDic = Request.Form
     End If
-    If requestDic.Count > 0 Then
+    If requestDic.Count >= 0 Then
       For Each requestKey In requestDic
         key = requestType & "." & LCase(requestKey)
         value =  requestDic(requestKey)
diff --git a/easyasp/easp.asp b/easyasp/easp.asp
index 8c9b8282f41f00f70b0b3962b82320a614781ec5..303a7b1fc3ea34f2aee8679cfc0ef648d9342727 100644
--- a/easyasp/easp.asp
+++ b/easyasp/easp.asp
@@ -148,9 +148,9 @@ Class EasyASP
   Public Sub WNS(ByVal s) : PrintlnString s : End Sub
   '输出经过格式化的字符串
   Public Sub PrintFormat(ByVal s, ByVal f) : Response.Write Str.Format(s, f) & VbCrLf : End Sub
-  Public Sub WF(ByVal s) : PrintFormat s, f : End Sub
+  Public Sub WF(ByVal s, ByVal f) : PrintFormat s, f : End Sub
   Public Sub PrintlnFormat(ByVal s, ByVal f) : Response.Write Str.Format(s, f) & "<br />" & VbCrLf : End Sub
-  Public Sub WNF(ByVal s) : PrintlnFormat s, f : End Sub
+  Public Sub WNF(ByVal s, ByVal f) : PrintlnFormat s, f : End Sub
   '输出字符串并终止程序运行
   Public Sub PrintEnd(ByVal s) : Response.Write s : [Exit]() : End Sub
   Public Sub WE(ByVal s) : PrintEnd s : End Sub
@@ -357,9 +357,9 @@ Class EasyASP
   Public Function GetUrlWith(ByVal param, ByVal value)
     Dim s_url, s_page
     '取出新页面地址
-    If Str.IsIn(param,"?") Then
-      s_page = Str.GetName(param, "?")
-      param  = Str.GetValue(param, "?")
+    If Str.IsIn(param,":") Then
+      s_page = Str.GetName(param, ":")
+      param  = Str.GetValue(param, ":")
     End If
     '取出页面地址和参数
     s_url = GetUrl(param)