Question

哪位大神能把我这段asp翻译成中文

<!--#include file="date.asp"-->
<% dim a,b,c
a=request.Form("sjmc")
b=request.Form("sjdz")
c=request.Form("sjdh")
re.open"select sjmc from sjxxb where sjmc='"&a&"'".cn,3,3
if not re.eofthen
Response.Write("<script>alert('对不起，该公司已经注册！');location.href='sjxx.asp';</script>")
response.End()
end if
cn.execute"insert into sjxxb(sjmc,sjdz,sjdh)values("'&a&'","'&a&'","'&a&'")"
Response.Write("<script>alert('恭喜你，注册成功！');location.href='sjxx.esp';</script>")
%>

Answer 1

<!--#include file="date.asp"--> ' 引用文件 date.asp
<% dim a,b,c '声明变量
a=request.Form("sjmc") '读取表单说的控件值, 并赋值给变量
b=request.Form("sjdz") '同上
c=request.Form("sjdh") '同上
re.open"select sjmc from sjxxb where sjmc='"&a&"'".cn,3,3 '打开数据集(查询用户名sjmc是否已注册)
if not re.eofthen '应该是 if not re.eof then '如果数据集有数据(即用户名已被注册)
Response.Write("<script>alert('对不起，该公司已经注册！');location.href='sjxx.asp';</script>") '显示提示框 "对不起，该公司已经注册！" , 跳转至 sjxx.asp
response.End() '这句没有什么意义吧? 可删去.
end if '判断语句结束
cn.execute"insert into sjxxb(sjmc,sjdz,sjdh)values("'&a&'","'&a&'","'&a&'")" '将注册信息写入表 sjxxb 中
Response.Write("<script>alert('恭喜你，注册成功！');location.href='sjxx.esp';</script>")
%> '显示提示框 "恭喜你，注册成功！" , 跳转至 sjxx.esp (一个是 sjxx.asp 吧?)