请教个问题。谢谢了。

2012-02-22 11:48:06 94 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

P问题，NP问题，NPC问题，NPH问题概念。’0/1背包判定问题是NPC问题‘和‘0/1背包问题是NPH问题但不是NPC问题’以及碰撞集是NPC问题‘证明。 (2)b个点的vertex cover 集对应规模大小为b的碰撞集：对于每一条边，至少有一个端点在b个点的vertex cover集中，所以这个集合和。(1)构建图G为碰撞集的映射：其中图G的每一个点对应碰撞集的每个元素，每条边对应。(3)规模大小为b的碰撞集对应b个点的vertex cover集：任意的。但0/1背包判定问题是NPC问题，0/1背包问题不比其更容易，所以，它是NPH问题。综上所述，顶点覆盖问题可以归约到碰撞集，因此碰撞集也是NPC问题。，在多项式时间内可以完成，故碰撞集是NP问题。阅读详情

<%
Function GetURL(URL)
Set http=Server.CreateObject("Microsoft.XMLHTTP")
On Error Resume Next
http.Open "GET",URL,False
http.send()
if Err then
Err.Clear
Response.Write "<script>alert('没有找到网页，请返回后重试.');location=document.location+'';</script>"
Response.End()
End if
getHTTPPage=bytesToBSTR(Http.responseBody,"gb2312")
set http=nothing
GetURL=getHTTPPage
End Function
'转换编码函数
Function BytesToBstr(body,Cset)
Dim objstream
Set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = Cset
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function
If(request("Send")="up") Then
If(request("URLSTR")<>"") Then
Content = GetURL(request("URLSTR"))
If(InstrRev(Content,"http://127.0.0.1")>0) Then '这里就是你网站的网址
Response.Write "<script>alert('可以添加');location='1.html';</script>"
Else
Response.Write "<script>alert('请先在您的首页加上我们的友情连接.');</script>"
End If
End If
End If
%>
<style type="text/css">

</style>
<FORM METHOD=POST ACTION="">
<input type=text name="URLSTR"><input type=submit value="检测连接">
<input type=hidden name="Send" value="up">
</FORM>

这是个验证对方网站是否有本站友情链接。上面有个这个代码
If(InstrRev(Content,"http://127.0.0.1")>0) Then '这里就是你网站的网址
Response.Write "<script>alert('可以添加');location='1.html';</script>"
就是对方网站加上http://127.0.0.1链接就能跳转。可是。在检测输入框中直接填写http://127.0.0.1这个网址也能跳转。就是别人不做链接也能打开'1.html'这个页面。
有那位朋友可以添加一个。检测功能。当输入的网址和您的网站地址一样的时候就有提示不能跳转。输入已做链接的网站就可以继续下面的代码。

...全文