4,008
社区成员
发帖
与我相关
我的任务
分享
<%@LANGUAGE="VBSCRIPT" CODEPAGE="950"%>
<%
Function vbs(sn)
Dim detail
sql = "SELECT * FROM table1 WHERE id = " & sn
............
detail.MoveFirst
Do Until detail.EOF
vbs = detail.Fields.Item("name").Value
detail.MoveNext
Loop
detail.Close()
Set detail = Nothing
End Function
%>
function xx() {
var a = 61
alert("<%=vbs(a)%>"); //这样是错误的
alert("<%=vbs(61)%>"); //只能直接传值进去
}
<button type="button" class="btn btn-danger" onClick="xx()">Click</button>
$.ajax({
url: '<%= Request.ServerVariables("SCRIPT_NAME") %>',
type: "Post",
async: false,
data: {
"vipSN": ModelInstance.sn()
},
sucess: function(result) {
alert(result);
alert("Update successful")
},
error: function(xhr){
alert("Error occured during Ajax request, the error status is: " + xhr.status);
}
});
<%
function vbs(sn)
Dim detail
Dim detail_numRows
Dim aa
Set aa = Request.Form("vipSN") //在这里并没有拿到数据,是不是因为页面没有刷新,拿不到post出来的数据?
Set detail = Server.CreateObject("ADODB.Recordset")
detail.ActiveConnection = MM_dbconn_STRING
detail.Source = "SELECT * FROM vip WHERE sn=" & sn
detail.CursorType = 0
detail.CursorLocation = 2
detail.LockType = 1
detail.Open()
detail_numRows = 0
detail.MoveFirst
Do Until detail.EOF
vbs = detail.Fields.Item("vip_name").Value
vbs = aa & "aa"
detail.MoveNext
Loop
detail.Close()
Set detail = Nothing
end function
%>
是的,get post都可以 输出返回值给js就行
是的,get post都可以 输出返回值给js就行
function xx() {
$.ajax({
url: '<%= Request.ServerVariables("SCRIPT_NAME") %>',
type: "Post",
async: false,
data: {
"vipSN": ModelInstance.sn()
},
sucess: function() {
alert("Update successful")
alert("<%=vbs()%>"); //这么调好像没起作用
},
error: function(xhr){
alert("Error occured during Ajax request, the error status is: " + xhr.status);
}
});
}
function vbs()
Dim detail
Dim detail_numRows
dim aa
aa = Request.QueryString("vipSN")
vbs = aa
end function
都在一个页面里也可以用ajax
用ajax调