本恶上攻略:<input type="button" onclick="DayOfWeek()" value="日期判断" name="B6"></input>无法调用SUB怎么回事?
来源:百度文库 编辑:查人人中国名人网 时间:2024/05/27 09:08:23
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
Sub DayOfWeek()
Dim day1
Dim temp
Dim tempstr
day1=Inputbox("请输入你选择的日期格式为yy-mm-dd",1)
If Not IsDate(day1) then
msgbox "青葱新输入"
Else
temp=WeekDay(Cdate(day1))
Select Case temp
case 1
tempstr="ri"
case 2
tempstr="yi"
case 3
tempstr="er"
case 4
tempstr="san"
case 5
tempstr="si"
case 6
tempstr="wu"
case 7
tempstr="liu"
End Select
msgbox "riqshi"&tempstr
End If
End Sub
%>
</script>
<body>
<input type="button" onclick="DayOfWeek()" value="日期判断" name="B6"></input>
</body>
</form>
</body>
Active Server Pages, ASP 0221 (0x80004005)
指定的'runat=server' 选项未知或无效。
/index.asp, 第 10 行
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<%
Sub DayOfWeek()
Dim day1
Dim temp
Dim tempstr
day1=Inputbox("请输入你选择的日期格式为yy-mm-dd",1)
If Not IsDate(day1) then
msgbox "青葱新输入"
Else
temp=WeekDay(Cdate(day1))
Select Case temp
case 1
tempstr="ri"
case 2
tempstr="yi"
case 3
tempstr="er"
case 4
tempstr="san"
case 5
tempstr="si"
case 6
tempstr="wu"
case 7
tempstr="liu"
End Select
msgbox "riqshi"&tempstr
End If
End Sub
%>
</script>
<body>
<input type="button" onclick="DayOfWeek()" value="日期判断" name="B6"></input>
</body>
</form>
</body>
Active Server Pages, ASP 0221 (0x80004005)
指定的'runat=server' 选项未知或无效。
/index.asp, 第 10 行
在第一行写
<% @ language=vbscript%>
这是指定脚本语言为vbscript 这样才可以调用过程
对不起少个空格 runat 写不写都可以的
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>新建网页 1</title>
</head>
<body>
<script language=vbscript runat=server>
Sub DayOfWeek()
Dim day1
Dim temp
Dim tempstr
day1=Inputbox("请输入你选择的日期格式为yy-mm-dd",1)
If Not IsDate(day1) then
msgbox "青葱新输入"
Else
temp=WeekDay(Cdate(day1))
Select Case temp
case 1
tempstr="ri"
case 2
tempstr="yi"
case 3
tempstr="er"
case 4
tempstr="san"
case 5
tempstr="si"
case 6
tempstr="wu"
case 7
tempstr="liu"
End Select
msgbox "riqshi"&tempstr
End If
End Sub
</script>
<body>
<input type="button" onclick="DayOfWeek()" value="日期判断" name="B6"></input>
</body>
</form>
</body>
<input type="file">问题
关于<input type="file" name="file"/>
<input type="text" name="T13" size="4" disabled >
<input type="hidden" name="NoUse" value="">
<input type="text"/ value="swerwdfwe">想隐藏边框用什么属性?
网页代码中的:<input type="button" class="">中的class是会么意思?
关于表单中的<input type=text>
<input type=file>的问题
<input type="button" value="删除" onclick="dele1.asp?id=<%=rs("id???????????
<input type="button" onclick="DayOfWeek()" value="日期判断" name="B6"></input>无法调用SUB怎么回事?