28,391
社区成员
发帖
与我相关
我的任务
分享如何在asp文件中调用js文件？
有名为allCheck.js的文件，其中包含几个函数，如：timeCheck(a,b)、
dateCheck()。现在我想在名为tt.asp这个文件中引用allCheck.js中的两个函数
用来判断日期，请问我该怎么做呢？请说具体点，ok！
dateCheck()。现在我想在名为tt.asp这个文件中引用allCheck.js中的两个函数
用来判断日期，请问我该怎么做呢？请说具体点，ok！
...全文
请发表友善的回复…
发表回复
ahuu 2003-09-20
- 打赏
- 举报
哦
行了
行了
ahuu 2003-09-20
- 打赏
- 举报
不行啊，看看我的源代码吧
这是我的js文件
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
function dateCheck()
{
alert("dddd");
}
</body>
</html>
这是asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="JavaScript" src="allCheck.js"></script>
</head>
<%
Dim cConn,sqlstr,rsData
sqlstr = "select * from usr_smgp"
Set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "yzsms","yzsms","yzsms"
Set rsData = Server.CreateObject("ADODB.recordset")
rsData.open sqlstr,cConn,1,2
%>
<table width="500" border="0">
<% while not rsData.eof%>
<tr>
<td width="76" height="26" bgcolor="#666666" class="text1"> <div align="center"></div></td>
<td width="128" bgcolor="#CCCCCC" class="text1"><div align="center"><%= rsData("usr_no") %></div></td>
<td height="26" bgcolor="#CCCCCC" class="text1"> <div align="center"><%= rsData("smdm") %> </div>
</tr>
<% rsData.movenext %>
<% wend %>
</table>
<script language="JavaScript">
<!--
dateCheck();
-->
</script>
</body>
</html>
这是我的js文件
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
function dateCheck()
{
alert("dddd");
}
</body>
</html>
这是asp文件
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<script language="JavaScript" src="allCheck.js"></script>
</head>
<%
Dim cConn,sqlstr,rsData
sqlstr = "select * from usr_smgp"
Set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "yzsms","yzsms","yzsms"
Set rsData = Server.CreateObject("ADODB.recordset")
rsData.open sqlstr,cConn,1,2
%>
<table width="500" border="0">
<% while not rsData.eof%>
<tr>
<td width="76" height="26" bgcolor="#666666" class="text1"> <div align="center"></div></td>
<td width="128" bgcolor="#CCCCCC" class="text1"><div align="center"><%= rsData("usr_no") %></div></td>
<td height="26" bgcolor="#CCCCCC" class="text1"> <div align="center"><%= rsData("smdm") %> </div>
</tr>
<% rsData.movenext %>
<% wend %>
</table>
<script language="JavaScript">
<!--
dateCheck();
-->
</script>
</body>
</html>
ahuu 2003-09-20
- 打赏
- 举报
怎么不行啊？？
ljupin 2003-09-20
- 打赏
- 举报
在ASP文件中加入
<script language=javascript src="allCheck"></script>
调用:
<font onclick="dateCheck()">点我</font>
<script language=javascript src="allCheck"></script>
调用:
<font onclick="dateCheck()">点我</font>
quady 2003-09-20
- 打赏
- 举报
在<head>与</head>之间
<script language="JavaScript" src="allCheck.js"></script>
然后你的javascript就可以用这里面的所有函数了。
<script language="JavaScript" src="allCheck.js"></script>
然后你的javascript就可以用这里面的所有函数了。
ahuu 2003-09-20
- 打赏
- 举报
以下面这个程序为例吧
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
Dim cConn,sqlstr,rsData
sqlstr = "select * from usr_smgp"
Set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "yzsms","yzsms","yzsms"
Set rsData = Server.CreateObject("ADODB.recordset")
rsData.open sqlstr,cConn,1,2
%>
<table width="500" border="0">
<% while not rsData.eof%>
<tr>
<td width="76" height="26" bgcolor="#666666" class="text1"> <div align="center"></div></td>
<td width="128" bgcolor="#CCCCCC" class="text1"><div align="center"><%= rsData("usr_no") %></div></td>
<td height="26" bgcolor="#CCCCCC" class="text1"> <div align="center"><%= rsData("smdm") %> </div>
</tr>
<% rsData.movenext %>
<% wend %>
</table>
</script>
</body>
</html>
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
Dim cConn,sqlstr,rsData
sqlstr = "select * from usr_smgp"
Set cConn = Server.CreateObject("ADODB.Connection")
cConn.Open "yzsms","yzsms","yzsms"
Set rsData = Server.CreateObject("ADODB.recordset")
rsData.open sqlstr,cConn,1,2
%>
<table width="500" border="0">
<% while not rsData.eof%>
<tr>
<td width="76" height="26" bgcolor="#666666" class="text1"> <div align="center"></div></td>
<td width="128" bgcolor="#CCCCCC" class="text1"><div align="center"><%= rsData("usr_no") %></div></td>
<td height="26" bgcolor="#CCCCCC" class="text1"> <div align="center"><%= rsData("smdm") %> </div>
</tr>
<% rsData.movenext %>
<% wend %>
</table>
</script>
</body>
</html>
quady 2003-09-20
- 打赏
- 举报
在<head>与</head>之间
<script language="JavaScript" src="car/a.js"></script>
<script language="JavaScript" src="car/a.js"></script>
