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
Ïà¹ØÎÊ´ð£º
Îļþ£ºfolder.inc
HTML code:
<%
Dim folderini,pos,pageName
fPath = Request.ServerVariables("PATH_TRANSLATED")
pos = instrRev(fPath,"\")
folderini = Left(fPath,pos)+&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" ......
MemoryStream ms = new MemoryStream(data);
Bitmap b = new Bitmap(ms);
ÔõôÊÇ´íÎó°¡~ÌáʾÊÇBitmap(ms);ÖÐms²ÎÊýµÄ¸ñʽ ²»ÕýÈ·~
Äã¿´Ò»ÏÂMemoryStream ºÍBitmap Õâ2¸öÊDz ......