js如何變asp,怎麼修改js

本文目錄一覽：

• 1、js函數轉換ASP版
• 2、js 代碼轉化成ASP代碼
• 3、js腳本變量如何變成asp變量
• 4、js 代碼 改寫 為 asp代碼

js函數轉換ASP版

script language=”jscript” runat=”server”

// 加上 runat=”server”, script block 就是服務端運行, jscript 定義的函數就可以被 VBScript 直接調用

function sayHello(p) {

Response.Write(“Hello! ” + p + “.”);

}

/script

% Call sayHello(“Jack”) %

js 代碼轉化成ASP代碼

javascript運行在客戶端，而asp運行在服務器端

要想asp接受到javascript中的變量，就的把javascript中的變量提交到asp中

方法比較多，下面是一個比較簡單的方法

修改你原來的javascript

a href=”javascript:extractlinks()”點擊測試下含有的鏈接？/a

script language=”JavaScript1.2″ defer=”defer”

!–

function extractlinks(){

var links=document.all.tags(“A”)

var strlinks=”;

b=0

var total=links.length

var win2=window.open(“”,””,”menubar,scrollbars,toolbar”)

for (i=0;itotal;i++)

{

if ((links[i].href).indexOf(“www”)!=-1

(links[i].href.length )35) {

//win2.document.write(“font size=’2′”+links[i]+”/fontbr”);

strlinks += links[i]+’|’;

b++;

}

}

//win2.document.write(“font size=’2’一共有”+b+”個外部連接/fontbr”)

win2.location.href=’view.asp?link=’+strlinks;

}

—

/script

新建一個view.asp

%

link = Request.QueryString(“link”)

links =split(link,”|”,-1,1)

for each str in links

Response.Write(str+”br”)

next

%

你就可以把就要把javascript中的變量提交到asp中

你還用現在流行的ajax把javascript中的變量提交到asp中

js腳本變量如何變成asp變量

script

function bbb(){

if(document.souform.keyword.value==””||document.souform.keyword.value==’請輸入關鍵字！’){

alert(“請輸入關鍵字！”);

return false ;

}

return true

}

function eee(){

if(document.souform.keyword.value==’請輸入關鍵字！’){

document.souform.keyword.value=””;

}

}

/script

%

set rs=server.createobject(“adodb.recordset”)

sql = “select * from smallclass order by smallclassID asc”

rs.open sql,conn,1,1

%

script language = “JavaScript”

var onecount;

subcat = new Array();

%

count = 0

do while not rs.eof

%

subcat[%=count%] = new Array(“%= trim(rs(“smallclassName”))%”,”%= trim(rs(“bigclassName”))%”,”%= trim(rs(“smallclassName”))%”);

%

count = count + 1

rs.movenext

loop

rs.close

%

onecount=%=count%;

function aaa(locationid)

{

document.souform.smallclassName.length = 1;

var locationid=locationid;

var i;

for (i=0;i onecount; i++)

{

if (subcat[i][1] == locationid)

{

document.souform.smallclassName.options[document.souform.smallclassName.length] = new Option(subcat[i][0], subcat[i][2]);

}

}

}

/script

form name=”souform” method=”post” action=”searchslt_in_site.asp” onSubmit=”return bbb();”

%

sql = “select * from bigclass”

rs.open sql,conn,1,1

if rs.eof and rs.bof then

response.write “請先添加欄目。”

else

%

select name=”bigclassName” onChange=”aaa(document.souform.bigclassName.options[document.souform.bigclassName.selectedIndex].value)” size=”1″

option selected value=”%=trim(rs(“bigclassName”))%”%=trim(rs(“bigclassName”))%/option

%

dim selclass

selclass=rs(“bigclassName”)

rs.movenext

do while not rs.eof

%

option value=”%=trim(rs(“bigclassName”))%”%=trim(rs(“bigclassName”))%/option

%

rs.movenext

loop

end if

rs.close

%

/select select name=”smallclassName”

option value=”” selected/option

%

sql=”select * from smallclass where bigclassName='” selclass “‘”

rs.open sql,conn,1,1

if not(rs.eof and rs.bof) then

%

option value=”%=rs(“smallclassName”)%”%=rs(“smallclassName”)%/option

% rs.movenext

do while not rs.eof%

option value=”%=rs(“smallclassName”)%”%=rs(“smallclassName”)%/option

%

rs.movenext

loop

end if

rs.close

%

%

ranNum=int(9*rnd)+10

iddata=month(now)day(now)hour(now)minute(now)second(now)ranNum

%

/select

關鍵字:

input type=”text” name=”keyword” size=”20″ onmousedown=”eee()” value=”請輸入關鍵字！”

input type=”radio” name=”selection” value=”title” checked按標題搜

input type=”radio” name=”selection” value=”content”按內容搜

input type=”submit” name=”Submit” value=”提交” class=”input”

input type=”reset” name=”Submit2″ value=”重置” class=”input”

/form

這是我做一個搜索的時間做的一個下拉菜單自動生成的程序，自己好好研究下吧

js 代碼 改寫 為 asp代碼

不用寫，直接用js標籤的runat=”_server”屬性，js就變成asp的一部分了，你就可以直接調用了。

看參考資料