<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% title=request.Form("title") a1=request.Form("a1") a2=request.Form("a2") a3=request.Form("a3") a4=request.Form("a4") a5=request.Form("a5") a6=request.Form("a6") content=request.Form("content") if a1="" then Response.Write "" response.end end if if a3="" then Response.Write "" response.end end if if a2="" then Response.Write "" response.end end if Dim intChrAt intChrAt=instr(1,a2,"@") If Not((intChrAt>1) And (instr(1,a2,".")>intChrAt+1)) then Response.Write "" response.End() ElseIf instr(intChrAt+1,a2,"@")>intChrAt then Response.Write "" response.End() ElseIf Mid(a2,intChrAt+1,1)="." then Response.Write "" response.End() ElseIf instr(1,right(a2,2),".")>0 then Response.Write "" response.End() Else End If if content="" then Response.Write "" response.end end if %> <% sql="select * from [Feedback]" set rs=server.CreateObject("adodb.recordset") rs.open sql,conn,1,3 'response.Write(sql) 'response.end rs.addnew rs("Class_Id")=1 rs("Title")=Title rs("a1")=a1 rs("a2")=a2 rs("a3")=a3 rs("a4")=a4 rs("a5")=a5 rs("a6")=a6 rs("add_date")=now() rs("content")=content rs.update rs.close set rs=nothing Response.Write "" %>