ASPÅжÏÎÊÌâ¡£
HTML code:
sql = "select top 1 * from cm_info where lm2='"&lm2&"' and (name='"&Request("name")&"' or haoma='"&Request("haoma")&"' or fenji='"&Request("fenji")&"')"
'response.write sql
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,2
if not(rs.bof and rs.eof) then
goexit "1.»úÖ÷Ãû»òÊÖ»úºÅÒÑ´æÔÚ;\n\n2.·Ö»úʶ±ðÂëÖØ¸´;\n\n¶Ô²»Æð£¬Çë·µ»ØÖØÌ"
response.end
end if
rs.addnew
¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£¡£
ÉÏÃæwhereµÄÌõ¼þ£¬ÎÒÏë·Åµ½ÏÂÃæÀ´£¬²»ÔÚÓï¾äÀïÅжϣ¬Óï·¨ÊÇʲôÑùµÄ£¨Â鷳д³öÀ´£©
ÓÃÕâ¸öÌá½»Ò³ÃæµÄÓжà¸öµØ·½£¬¶¼Í¬ÓÃÕâÒ»Ò³£¬ÁíÍâÓеĵط½²»ÐèÒªÑéÖ¤nameÖØ¸´£¬ÎÒ¸ÃÔõôд£¿Â鷳Ҳд³öÀ´¡£
°Ñ(name='"&Request("name")&"'È¥µô²»¾ÍºÃÁË¡£¡£¡£»¹ÊÇÎÒÀí½â´íÁË£¿
sql = "select top 1 * from cm_info where lm2='"&lm2&"' and haoma='"&Request("haoma")&"' or fenji='"&Request("fenji")&"')"
'response.write sql
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,2
if not(rs.bof and rs.eof) then
goexit &qu
Ïà¹ØÎÊ´ð£º
VB code:
<!--#include file="conn.asp"--><!--#include file="sqlin.asp"--><?xml version="1.0" encoding="gbk"?>
<%
Request_id=Request(&quo ......
VBScript code:
Set http=Server.CreateObject("MSXML2.ServerXMLHTTP")
http.Open "post","http://www.yodao.com/smartresult-xml/search.s?type=ip&q=221.123.123.123" ......
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xht ......
½¨ÁËÒ»¸öÕ¾µã£¬ÀïÃæÓÐ login.aspx. events.aspx µÈµÈ ÆäËûµÄÒ³Ãæ¡£
µ«ÊÇÎÒµ÷ÊÔ ÆäËûÒ³ÃæµÄʱºò£¬±Ä³öÀ´µÄ×ÜÊÇ login.aspx Ò³Ãæ¡£
¸Õѧasp ÇëÖ¸½Ì
ÄãÉèÖÃÆðʼҳÁ˰ɡ£¡£
¶÷ÔõôȡÏûÄØ£¿
Òªµ ......
<%set rs=server.CreateObject("Adodb.recordset")
rs.open "select * from zs_news where m_classid="&classid&" order by m_id desc",conn,1,1
......