图片按钮传值问题
addemail.asp如果是通过type=submit的可以通过,但是我换成了图片。出现了问题
请问以下两段代码怎么修改
还有能帮我解释一下代码:
<input cache class=p1 height=18 name=dingtui src="image/dd.gif" type=image value="退订" width=35>
中cache classs=p1的意思?
图片传值的代码:
<input type="text" name="mail" size="20" onFocus="this.select()" onMouseOver="this.focus()" value="请输入你的E-mail">
</div></td></tr> <tr> <td height="19"> <div align="center"> <input cache class=p1 height=18 name=dingtui src="image/dy.gif" type=image value="订阅" width=35>
<input cache class=p1 height=18 name=dingtui src="image/dd.gif" type=image value="退订" width=35>
这是addemail.asp的代码
<% @language="vbscript" %>
<%
response.buffer=true
Response.Expires=0
dingtui=Request("dingtui")
mail=Request("mail")
If mail="" Then
response.write "SORRY <br>"
response.write "你的信箱没有填写"
response.end
end if
if Instr(mail,"@")=0 Then
response.write "SORRY <br>"
response.write "请您输入正确的邮箱地址!"
response.end
end if
if Instr(mail,".")=0 Then
response.write "SORRY <br>"
response.write "请您输入正确的邮箱地址!"
response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../data/zhuosi.mdb")
if dingtui="订阅" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from mail"
rs.open sql,conn,1,3
rs.addnew
rs("mail")=mail
rs("date")=now()
rs("ip")=Request.ServerVariables("REMOTE_HOST")
rs.update
rs.close
response.write "谢谢您的订阅 <br>"
%>
<%=mail%>
<%
response.write " 您的邮箱地址已经成功加入我们的邮件列表中,感谢您的支持<br>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="delete from mail where mail='"&mail&"' "
conn.Execute sql
conn.Close
set conn=Nothing
%><%=mail%><%
response.write "<br>已经删除,退订成功。<br>"
response.end
end if
response.redirect "../OK.asp"
%>