28,391
社区成员
发帖
与我相关
我的任务
分享请问ASP（vbscript）做的网页要怎么调试？
请问大家平时是怎么测试ASP的？用什么工具？（我暂时用DW cs4）
举个例子，下面是一个网上预订的表单，把变量传到处理页面，然后写入数据库，那我要怎么知道他的值有没有成功传到处理页，怎么知道处理页有没有正确把值写入数据库？
能像jsp那样在eclipse里面采用断点调试吗？或者让程序输出一下什么的，
举个例子，下面是一个网上预订的表单，把变量传到处理页面，然后写入数据库，那我要怎么知道他的值有没有成功传到处理页，怎么知道处理页有没有正确把值写入数据库？
能像jsp那样在eclipse里面采用断点调试吗？或者让程序输出一下什么的，
...全文
请发表友善的回复…
发表回复
hi名威 2012-09-14
- 打赏
- 举报
我现在希望能把门市这一块的内容写入数据库（门市信息是读数据库生成的一个下拉框）
表单页下拉框代码片段如下
数据库操作代码片段如下
我的问题是，我给数据库添加了一个新字段“shop”，然后从表单的下拉框获取门市信息变量”select2“ 可是数据库写入为空，请问一般是哪里出问题了
表单页下拉框代码片段如下
<td width="36%" align="right" class="member_zi">选择门市：</td>
<td width="64%"><span class="STYLE1">
<%
sql="select Id,Pname from menshit order by id desc"
rs.open sql,conn,1,1
%>
<select name="select2" style="width:120px">
<%do while not rs.eof%>
<option value="<%=rs("pname")%>"><%=rs("pname")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<span class="STYLE2">*</span></span></td>数据库操作代码片段如下
<%
Call OpenData()
Set Rs=Conn.Execute("Select WebName,WebName2,WebName3 From WebConfig")
IF Not Rs.eof Then
WebName=Rs("WebName") '网站名称(英)
WebName2=Rs("WebName2")'网站关键字(英)：
WebName3=Rs("WebName3")'网站描述(英)
Else
Response.Write "/"
Response.End()
End IF
Rs.Close
'if request.QueryString("ID")="" Or Not IsNumeric(Request.QueryString("ID")) then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
'else
' ID=trim(request.QueryString("ID"))
' Sql="Select ID from sbe_job where ID="&ID&" and Show=true "
' rs.open Sql,conn,1,3
' if rs.eof and rs.bof then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
' end if
' rs.close
'end if
' job=trim(request.QueryString("job"))
' Sql="select ID,Job,Num,AddDate,Show,Contact,Tel,leibie,Department,address,EffectTime,sex,click from sbe_job where id="&id
' Rs.open Sql,conn,1,1
shop=trim(request("select2"))
lytheme=trim(request("lytheme"))
lyname=trim(request("lyname"))
lytel=trim(request("lytel"))
phone=trim(request("phone"))
leibie=trim(request("leibie"))
months=trim(request("months"))
days=trim(request("days"))
hours=trim(request("hours"))
feng=trim(request("feng"))
years=year(now())
lysex2=years&"-"&months&"-"&days
bb=datediff("d",now(),lysex2)
if bb>7then
response.Write"<script>alert('您的预约时间过长，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
if bb<0 then
response.Write"<script>alert('您的预约时间不正确，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
lysex=months&"月"&days&"日"&hours&"点"&feng&"分"
' if lytheme="" then
' response.Write"<script>alert('请填写会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
if lytheme="" then
response.Write"<script>alert('请填写您的姓名！');history.go(-1);</script>"
response.End()
end if
if phone="" then
response.Write"<script>alert('请填写您的手机号码！');history.go(-1);</script>"
response.End()
end if
if lytel<>"" and (len(lytel)=18 or len(lytel)=15) then
else
response.Write"<script>alert('身份证号不正确！');history.go(-1);</script>"
response.End()
end if
if leibie="" then
response.Write"<script>alert('请填写您团体具体人数！');history.go(-1);</script>"
response.End()
end if
' if rs.eof then
' response.Write"<script>alert('不存在的会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
sql="insert into [box](lytheme,lyname,lytel,phone,leibie,lysex,shop)values('"&lytheme&"','"&lyname&"','"&lytel&"','"&phone&"','"&leibie&"','"&lysex&"','"&select2&"')"
conn.execute sql
%>我的问题是，我给数据库添加了一个新字段“shop”，然后从表单的下拉框获取门市信息变量”select2“ 可是数据库写入为空，请问一般是哪里出问题了
hi名威 2012-09-14
- 打赏
- 举报
我现在希望能把门市这一块的内容写入数据库（门市信息是读数据库生成的一个下拉框）
表单页下拉框代码片段如下
数据库操作代码片段如下
我的问题是，我给数据库添加了一个新字段“shop”，然后从表单的下拉框获取门市信息变量”select2“ 可是数据库写入为空，请问一般是哪里出问题了
表单页下拉框代码片段如下
<td width="36%" align="right" class="member_zi">选择门市：</td>
<td width="64%"><span class="STYLE1">
<%
sql="select Id,Pname from menshit order by id desc"
rs.open sql,conn,1,1
%>
<select name="select2" style="width:120px">
<%do while not rs.eof%>
<option value="<%=rs("pname")%>"><%=rs("pname")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<span class="STYLE2">*</span></span></td>数据库操作代码片段如下
<%
Call OpenData()
Set Rs=Conn.Execute("Select WebName,WebName2,WebName3 From WebConfig")
IF Not Rs.eof Then
WebName=Rs("WebName") '网站名称(英)
WebName2=Rs("WebName2")'网站关键字(英)：
WebName3=Rs("WebName3")'网站描述(英)
Else
Response.Write "/"
Response.End()
End IF
Rs.Close
'if request.QueryString("ID")="" Or Not IsNumeric(Request.QueryString("ID")) then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
'else
' ID=trim(request.QueryString("ID"))
' Sql="Select ID from sbe_job where ID="&ID&" and Show=true "
' rs.open Sql,conn,1,3
' if rs.eof and rs.bof then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
' end if
' rs.close
'end if
' job=trim(request.QueryString("job"))
' Sql="select ID,Job,Num,AddDate,Show,Contact,Tel,leibie,Department,address,EffectTime,sex,click from sbe_job where id="&id
' Rs.open Sql,conn,1,1
shop=trim(request("select2"))
lytheme=trim(request("lytheme"))
lyname=trim(request("lyname"))
lytel=trim(request("lytel"))
phone=trim(request("phone"))
leibie=trim(request("leibie"))
months=trim(request("months"))
days=trim(request("days"))
hours=trim(request("hours"))
feng=trim(request("feng"))
years=year(now())
lysex2=years&"-"&months&"-"&days
bb=datediff("d",now(),lysex2)
if bb>7then
response.Write"<script>alert('您的预约时间过长，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
if bb<0 then
response.Write"<script>alert('您的预约时间不正确，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
lysex=months&"月"&days&"日"&hours&"点"&feng&"分"
' if lytheme="" then
' response.Write"<script>alert('请填写会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
if lytheme="" then
response.Write"<script>alert('请填写您的姓名！');history.go(-1);</script>"
response.End()
end if
if phone="" then
response.Write"<script>alert('请填写您的手机号码！');history.go(-1);</script>"
response.End()
end if
if lytel<>"" and (len(lytel)=18 or len(lytel)=15) then
else
response.Write"<script>alert('身份证号不正确！');history.go(-1);</script>"
response.End()
end if
if leibie="" then
response.Write"<script>alert('请填写您团体具体人数！');history.go(-1);</script>"
response.End()
end if
' if rs.eof then
' response.Write"<script>alert('不存在的会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
sql="insert into [box](lytheme,lyname,lytel,phone,leibie,lysex,shop)values('"&lytheme&"','"&lyname&"','"&lytel&"','"&phone&"','"&leibie&"','"&lysex&"','"&select2&"')"
conn.execute sql
%>我的问题是，我给数据库添加了一个新字段“shop”，然后从表单的下拉框获取门市信息变量”select2“ 可是数据库写入为空，请问一般是哪里出问题了
hi名威 2012-09-14
- 打赏
- 举报
处理页代码
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/lib.asp"-->
<!--#include file="inc/Check_Sql.asp"-->
<%
Call OpenData()
Set Rs=Conn.Execute("Select WebName,WebName2,WebName3 From WebConfig")
IF Not Rs.eof Then
WebName=Rs("WebName") '网站名称(英)
WebName2=Rs("WebName2")'网站关键字(英)：
WebName3=Rs("WebName3")'网站描述(英)
Else
Response.Write "/"
Response.End()
End IF
Rs.Close
'if request.QueryString("ID")="" Or Not IsNumeric(Request.QueryString("ID")) then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
'else
' ID=trim(request.QueryString("ID"))
' Sql="Select ID from sbe_job where ID="&ID&" and Show=true "
' rs.open Sql,conn,1,3
' if rs.eof and rs.bof then
' response.Write "<script LANGUAGE=javascript>alert('参数错误! ');history.go(-1);<'/script>"
' response.End
' end if
' rs.close
'end if
' job=trim(request.QueryString("job"))
' Sql="select ID,Job,Num,AddDate,Show,Contact,Tel,leibie,Department,address,EffectTime,sex,click from sbe_job where id="&id
' Rs.open Sql,conn,1,1
shop=trim(request("select2"))
lytheme=trim(request("lytheme"))
lyname=trim(request("lyname"))
lytel=trim(request("lytel"))
phone=trim(request("phone"))
leibie=trim(request("leibie"))
months=trim(request("months"))
days=trim(request("days"))
hours=trim(request("hours"))
feng=trim(request("feng"))
years=year(now())
lysex2=years&"-"&months&"-"&days
bb=datediff("d",now(),lysex2)
if bb>7then
response.Write"<script>alert('您的预约时间过长，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
if bb<0 then
response.Write"<script>alert('您的预约时间不正确，只接受7日内预约，谢谢！');history.go(-1);</script>"
response.End()
end if
lysex=months&"月"&days&"日"&hours&"点"&feng&"分"
' if lytheme="" then
' response.Write"<script>alert('请填写会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
if lytheme="" then
response.Write"<script>alert('请填写您的姓名！');history.go(-1);</script>"
response.End()
end if
if phone="" then
response.Write"<script>alert('请填写您的手机号码！');history.go(-1);</script>"
response.End()
end if
if lytel<>"" and (len(lytel)=18 or len(lytel)=15) then
else
response.Write"<script>alert('身份证号不正确！');history.go(-1);</script>"
response.End()
end if
if leibie="" then
response.Write"<script>alert('请填写您团体具体人数！');history.go(-1);</script>"
response.End()
end if
' if rs.eof then
' response.Write"<script>alert('不存在的会员卡号！');history.go(-1);<'/script>"
' response.End()
' end if
sql="insert into [box](lytheme,lyname,lytel,phone,leibie,lysex,shop)values('"&lytheme&"','"&lyname&"','"&lytel&"','"&phone&"','"&leibie&"','"&lysex&"','"&select2&"')"
conn.execute sql
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=WebName%></title>
<meta name="keywords" content="<%=WebName2%>" />
<meta name="description" content="<%=WebName3%>" />
<link href="inc/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(images/bg.gif);
}
.STYLE1 {color: #FFFFFF}
-->
</style></head>
<body>
<table width="1003" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="top_menu.asp"--></td>
</tr>
<tr>
<td><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="21%" valign="top"><!--#include file="left.asp"--></td>
<td width="68%" valign="top">
<table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/online_03.jpg" width="683" height="36" alt=""></td>
</tr>
<tr>
<td height="620" valign="top" background="images/about_05.jpg" style="padding:15px 35px 0px 35px"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td class="STYLE1" height="25">我们已经接受您的预约，谢谢!</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="5%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td style="padding:10px 53px 0px 58px"><!--#include file="link.asp"--></td>
</tr>
<tr>
<td><img src="images/index_25.jpg" width="1003" height="13" alt=""></td>
</tr>
<tr>
<td><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
Rotel-刘志东 2012-09-14
- 打赏
- 举报
不能像eclipse那样集成化工具断点调试的。只能用IIS并结合response.write。
如果不知道那一段程序有问题那就输出看是否正确，也就是response.write
如果不知道那一段程序有问题那就输出看是否正确，也就是response.write
hi名威 2012-09-14
- 打赏
- 举报
表单页代码
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/lib.asp"-->
<!--#include file="inc/Check_Sql.asp"-->
<%
Call OpenData()
Set Rs=Conn.Execute("Select WebName,WebName2,WebName3 From WebConfig")
IF Not Rs.eof Then
WebName=Rs("WebName") '网站名称(英)
WebName2=Rs("WebName2")'网站关键字(英)：
WebName3=Rs("WebName3")'网站描述(英)
Else
Response.Write "/"
Response.End()
End IF
Rs.Close
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=WebName%></title>
<meta name="keywords" content="<%=WebName2%>" />
<meta name="description" content="<%=WebName3%>" /><link href="inc/css.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(images/bg.gif);
}
.STYLE1 {color: #FFFFFF}
.STYLE2 {color: #FF0000}
-->
</style></head>
<body>
<table width="1003" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="top_menu.asp"--></td>
</tr>
<tr>
<td><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="6%"> </td>
<td width="21%" valign="top"><!--#include file="left.asp"--></td>
<td width="68%" valign="top"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td><img src="images/online_03.jpg" width="683" height="36" alt=""></td>
</tr>
<tr>
<td height="620" valign="top" background="images/about_05.jpg" style="padding:59px 25px 0px 25px"><table width="100%" cellspacing="0" cellpadding="0">
<tr>
<td align="center" style="padding-bottom:70px"><img src="images/online_07.jpg" width="449" height="69" alt=""></td>
</tr>
</table>
<form action="onlinesave.asp?act=save" method="post" name="form1">
<table width="86%" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="36%" align="right" class="member_zi">选择门市：</td>
<td width="64%"><span class="STYLE1">
<%
sql="select Id,Pname from menshit order by id desc"
rs.open sql,conn,1,1
%>
<select name="select2" style="width:120px">
<%do while not rs.eof%>
<option value="<%=rs("pname")%>"><%=rs("pname")%></option>
<%
rs.movenext
loop
rs.close
%>
</select>
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">会员卡号：</td>
<td><span class="member">
<input type="text" name="lytheme" style="width:170px; height:18px">
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">您的姓名：</td>
<td><span class="member">
<input type="text" name="lyname" style="width:170px; height:18px">
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">身份证号码：</td>
<td><span class="member">
<input type="text" name="lytel" style="width:170px; height:18px">
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">手机号：</td>
<td><span class="member">
<input type="text" name="phone" style="width:170px; height:18px">
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">人数：</td>
<td><span class="member">
<input type="text" name="leibie" style="width:170px; height:18px">
<span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td align="right" class="member_zi">具体时间：</td>
<td><span class="member">
<select name="months">
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
月
<select name="days">
<%for i=1 to 31%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
日
<select name="hours">
<%for i=1 to 24%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
点
<select name="feng">
<%for i=0 to 50 step 10%>
<option value="<%=i%>"><%=i%></option>
<%next%>
</select>
分 <span class="STYLE2">*</span></span></td>
</tr>
<tr>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td><input name="image2" type="image" src="images/online_11.jpg" alt="" width="53" height="17">
<a href="online.asp"><img src="images/online_13.jpg" width="53" height="17" alt="" border="0"></a></td>
</tr>
</table>
</form></td>
</tr>
</table></td>
<td width="5%"> </td>
</tr>
</table></td>
</tr>
<tr>
<td style="padding:10px 53px 0px 58px"><!--#include file="link.asp"--></td>
</tr>
<tr>
<td><img src="images/index_25.jpg" width="1003" height="13" alt=""></td>
</tr>
<tr>
<td><!--#include file="foot.asp"--></td>
</tr>
</table>
</body>
</html>
hi名威 2012-09-14
- 打赏
- 举报
[Quote=引用 1 楼 的回复:]
iis+response.write
[/Quote]
额，能具体一点吗？
iis+response.write
[/Quote]
额，能具体一点吗？
Go 旅城通票 2012-09-14
- 打赏
- 举报
iis+response.write
