编程问题......请指教

来源:百度知道 编辑:UC知道 时间:2024/05/06 19:55:50
<%

action=request("action")

If action ="search" Then
Dim cnn_order, StrCnn_order
Set cnn_order = Server.CreateObject("ADODB.Connection")
StrCnn_order="Provider=SQLOLEDB.1;Password=dddd;Persist Security Info=True;User ID=sa;Initial Catalog=123456;Data Source=172.26.32.25;Connect Timeout=50"
cnn_order.open strcnn_order

serviceid=request("serviceid")
dater=request("dater")

sql="select top 10 FsubmitTime,freportcode FROM MsgTable"&dater&" WHERE FServiceUpID = '"&serviceid&"' AND FReportCode IS NOT NULL ORDER BY FsubmitTime DESC"

response.write sql
Else
%>
<form action=112233.asp method=post>
<input type=hidden name="action" value=search >
<input type=text name=serviceid>
<input type=text name=dater>
<input name="enter" t

不明白您的意思~

看看这个可以吗!
<%response.write "<script language='javascript'>" & chr(13)
response.write "alert('新闻提交成功!');" & Chr(13)
response.write "window.document.location.href='admin_info.asp';"&Chr(13)
response.write "</script>" & Chr(13)
Response.End
%>